Thank you Zaxo and Anon.

sub GetLinks {
    $text = shift;
    use Regexp::Common;

    $text =~ s[($RE{URI}{HTTP})]
          [<a href = "$1" target="_blank">$1</a>]g;
    return($text);
}
[download]

that subroutine works...

Many a thanks!!