Perl script to find word in file