Select Code to Download

use strict;
use warnings;
...
    return unless /^\d+$/;    # your regex
    print $File::Find::name . "\n";
}