ersetzen

[Frank Schönmann]

hi!

Wie mache ich das am schnellsten
while ($body =~ #(http://[^\s]+)\s#g) { print "<a href="$1"></a>"; }

Das war aber IMHO nicht, was er wollte. In $body sollten einfach alle URLs mit <a>-Tags umrahmt werden, nicht einfach ausgegeben. Also eher etwas in der Richtung:
  $body =~ s(http://.*?)\s<a href="$1">$1</a>g;

bye, Frank!