my $str = << 'EOT';
^Pbishop@yahho.com^H17769025^D3352^Vblueangel@acc
essmo.com^H17769714^D3352^Oboe@stooges.com^H17773
126^D3352^Mbirk@joke.com^H17773968^D3352^Rbobfitz
@mcione.com^H17768877^D3352^Nbob@yohaoo.com^H1776
9806^D3352^R
EOT

# stitch and recast control characters
# use the original binary format in reality
$str =~ s/\s+//g;
$str =~ s/\^([A-Z])/chr( ord($1) & 0xBF )/ge;

my @emails = grep m/@/, unpack "(c/a)*", $str;

print "$_\n" for @emails;