my $string = "http://www.ams.net";
$string =~ s!(.+)!<a href='$1'>$1</a>!g;
print $string;
^Z
<a href='http://www.ams.net'>http://www.ams.net</a>