Perl で、URL の自動リンクをしたい

以前私は正規表現を使っていたが、 URI::Find とそれにピッタリのモジュールを発見。以来こちらに移行。使用するモジュール

use URI::Find;

#!/usr/bin/perl

sub urlToLink {

    use URI::Find;
    my $text = shift;

    my $finder = URI::Find->new(
        sub {
            my($uri, $orig_uri) = @_;
            return qq|<a href="$uri">$orig_uri</a>|;
        });
    $finder->find(¥$text);

    return $text;
}

1;

参考リンク：