Maybe you could just do it as a module, so you would say this:

perl -MRecurse -ne 'print if _____' somedir/