One problem:
    my $find = <STDIN>;
the scalar  $find will be terminated with a newline. You need to chomp this string (as you did with the filename) before you use it in the regex.