Select Code to Download

my $str = << 'EOT';
^Pbishop@yahho.com^H17769025^D3352^Vblueangel@acc
...
my @emails = grep m/@/, unpack "(c/a)*", $str;

print "$_\n" for @emails;