Find and replace the email address in plain text with Perl

gistfile1

use Email::Find;
sub replaceEmail {
    my $data = shift @_;
    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(\$data);
  return $data;
}