use strict;
use warnings;

open F, 'file' or die $!;
undef $\; # Enable slurp mode
$_ = <F>;
close F;

print "$1\n" while /([\w.-]+\@[\w.-]+)/g;