Select Code to Download

use Email::Find;
my $finder = Email::Find->new(
...
  },
);
$finder->find(\$text);

use URI::Find;
find_uris($text,
...
        my($uri, $orig_uri) = @_;
        return qq|<a href="$uri">$orig_uri</a>|;
    });