use CGI qw/:html/;
use Regexp::Common qw/URI/;

s/$RE{URI}{HTTP}/a( {href => $1}, $3)/eg;