Select Code to Download

my @files = <*.txt>;
undef $/;
...
   close ( FH );
   while ( $txt =~ m/(M[A-Z]{3}) /gs ) { print "  $1\n"; }
}