Hi Frank!
$body =~ s(http://.*?)\s<a href="$1">$1</a>g;
Yoh, bis auf eine Kleinigkeit. Nach dem </a> sollte noch ein Leerzeichen hin, denn sonst wird das im vorderen Teil erkannte einfach weggeschmissen, und das sieht dann bloed aus, wenn zwischen dem Link und dem folgenden Wort kein Zwischenraum mehr ist. Also
$body =~ s(http://.*?)\s<a href="$1">$1</a> g;
Calocybe