use strict;
use warnings;
use Email::Find;
 my @emails;
 my $string = "dummy\@dumdum.com";
 my $finder = Email::Find->new(sub {
       my ($email, $orig_email) = @_;
       my $escaped = $email->format;
       $escaped =~ s/@/\\\@/;
       push @emails, $escaped;
       return $orig_email;
       });
 $finder->find(\$string);
 print @emails;

__OUTPUT__

dummy\@dumdum.com