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