I think that you should probably explain what you're trying to do rather than just post code as it's not really clear what your code is trying to do.

You should probably be looking at the File::Find module as it allows you to implement find-style things without using an external shell.

Perl Training in the UK <http://www.iterative-software.com>