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

##</code><code>##

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