use Email::Find;
my $finder = Email::Find->new(
  sub {
	  my($email, $orig_email) = @_;
	  my($address) = $email->format;
	  return qq|<a href="mailto:$address">$orig_email</a>|;
  },
);
$finder->find(\$text);

##</code><code>##

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