#!/usr/bin/perl

foreach $arg(@ARGV){
  print ("-=-=-=-=-=-=-=-=-=- $arg -=-=-=-=-=-=-=-=-=-=-\n");
  open(FILEHANDLE, $arg) || die $!;
  while(my $line=<FILEHANDLE>){
    chomp($line);
    while($line =~ m/[A-Za-z0-9.-_+%]+@[A-Za-z0-9.-]+\.[a-z]{2,4}/g){
	print($&."\n");
    }
  }
  close FILEHANDLE;
}