Ok, this is not quite the perl solution, but it will work. find . -name \*.txt -size +14k | xargs ls -l In fact, take a look at File::Find. You also want to use the stat() function. It will give you your size for your function. I have some File::Find scripts at http://www.brie.com/coinduperl/