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