Select Code to Download

#!/usr/bin/perl -w

...
my @emails = ($data =~ /<td>([^>\@]+?\@[^<\@]+)<\/td>/g);

print join "\n", @emails;

#!/usr/bin/perl -w

...
    print $email->format."\n";
    return $orig_email;
});