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