Select Code to Download

perl  -le"@a = <*.pl>; print for grep{ /\d{6}\./ } @a"

perl  -le" @a = <*.pl>; /\d{6}\./ and print for @a"