#Perl recursive file listing in dir with a pattern in name
Modified: use File::Find; #Recursive file find with a pattern in name find( sub{ /.*NODE.*\.CAT.*/si && -f $_ and push @bkpfiles, $File::Find::name; #-d $_ and push @dirs, $File::Find::name; }, $dir ); due to: sh1tn