Actually while (my $file = readdir DIR) { print "$file\n" } will happily iterate over readdir. Try it. Also your grep solution will skip files like:

.
..
.bashrc
.any_other_unix_style_hidden_file/dir
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print