Are you talking about something like that:

#!/usr/bin/perl -w

use strict;

my $page = <<__EOT;
jksjdsjk some\@one.com nnbcx
jdsjl;'pejbkscd (aaa\@bbb.com)
sdkmlsd
__EOT

my @emails = ($page =~ /\b\S+?\@\S+?\b/gs);
foreach (@emails) {
    print "$_\n";
}
[download]

--dda