Watch out for dirctories ending in .txt

$ touch temp.txt

$ mkdir dir.txt

$ perl -le 'print scalar @{[<./*.txt>]}'
2
[download]

Try this:

$ perl -le 'print scalar @{[grep {-f} <./*.txt>]}'
1
[download]