Select Code to Download

use strict;
use warnings;
...
find({ wanted =>sub{push @list,$_ if (/$rex/ && -f)} , no_chdir => 1 }
+, $search_root);
# And print em out
print join "\n",@list;

D:\Bin\/autoruns.exe