perl -e "print grep {/\d+\.txt/} glob('*.txt');"
1.1.1.txt1.1.txt1.txt2.txt3.txt