Select Code to Download

use strict;
use warnings;
...
    print ">> ", $File::Find::name, "\n"
        if $file =~ /$pattern/;
}

P:\Perl>perl search.pl -r ./ -p  "(Find|Dir)" -i
>> ./f1.pl
...
>> ./Fun2.pl
>> ./result.txt
>> ./search.pl