#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