Help for this page
push(@results, $File::Find::name) if(-f $_ && $_ eq $file);
push(@results, $File::Find::name) if((-f $_) && ($_ =~ /^$file$/i));