sub doForEachFile { return if $File::Find::name =~ /\.[oa]$/; #we have what we want...do what ever; }