per merlyn suggestion, this code was moved from Snippets section.

BEGIN { *::find = \&find } 
sub find{
    grep{
        grep &{$_[0]}($_), ( open IN, $_ and <IN> )
    } map{
        opendir DIR, $_ and &{sub{
            map $_[0].$_, @_[1..$#_]
        }}($_, readdir DIR)
    } @_[1..$#_]
}
[download]

Edited by castaway - added code tags