$myformtext =~ s!(http://[^\s]+)!<a href="$1">$1</a>!gi;