How do I match an email using the The Official Standard: RFC 5322 in a html source code, after that i will extract the strings that are matched ONLY, and print out inly the emails, and not the whole source code? Is there any examples and output to illustrate this? Thnaks!

elsif ($_ eq '-dDATA' or $_ eq  '-ft') {


opendir(DIR,'DATA');  
my(@dir) = grep /\.htm/, readdir (DIR);
closedir(DIR);

my $value = join(@dir); 
print "$value\n";

foreach my $movies (@dir) {

open (my $FHD,  "<", "DATA/$movies") || die $!;
print <$FHD>;
  }


}
}