Select Code to Download

use Win32;
use File::Find;
...
    push(@paths, $path) if $path =~ /\x{ABCD}/;

}, "my_dir";