Select Code to Download

use File::Find; 
use strict;
...
find({ wanted =>sub{print "Found a match: $_\n" if (/$rex/);} , 
   no_chdir => 1 }, $search_root);