Find and Replace urls in plain text with Perl(Schemeless)

gistfile1

use URI::Find;
sub replaceURL {
    my $data = shift @_;
    require URI::Find::userContentFile;
    my $finder = URI::Find::Schemeless->new(
        sub {
            my($uri, $orig_uri) = @_;
            return qq|<a href="$uri">$orig_uri</a>|;
        }
    );
    $finder->find( \$data );
    return $data;
}