Regulärer Ausdruck will nicht funktionieren?

[qp]

hallo markus,

$text =~ s/(\s|^)http://([^<>\s]{6,})/$1<a href="http://$1">$2</a>/isg;
   $text =~ s/(\s|^)www.([^<>\s]{6,})/$1<a href="http://www.$2">http://www.$2</a>/isg;

versuche mal diese zeilen in eine zu schreiben,
also ein link ist nur ein link wenn er mit 'http://www.' begint
dann wird 'www.' nicht gefunden.

gruß
qp