Select Code to Download

$ perl -e '
use strict;
...
-rw-r--r--  1 ken  staff  10 26 Oct 03:01 a.msg
-rw-r--r--  1 ken  staff  10 26 Oct 03:01 b.msg
-rw-r--r--  1 ken  staff  10 26 Oct 03:02 c.msg

$ cat script.pl
while (<>) {
    print "$_\n";
}

$ perl -e '
use strict;
...
Message B

Message C

$ perl script.pl *.msg
Message A
...
Message B

Message C