# alte Variante $txt =~ s%(\s)(www\.[^\s<]*)%$1$2%sg; # andere (nicht funktionierende) Variante $txt =~ s%\w(www\.[^\s<]*)%$1%sg;