Select Code to Download

use Regexp::Common qw( URI );
$message =~ s#^($RE{URI}{HTTP})#<a href="$1">$1</a>#;
$message =~ s#(?<=\s)($RE{URI}{HTTP})#<a href="$1">$1</a>#g;