my @emails;
open(FILE,"<$file") or die $!;
while(my $line = <FILE>){
  if($line =~ /([^\s]+\@[a-zA-Z0-9\-\.]+)/ ){
    push(@emails,$1);
  }
}
close FILE;
print $_,"\n" for(@emails);