# file.txt
# one two three four five six seven eight nine ten
# zero

#!/usr/bin/perl
use warnings;
open(FILE, "file.txt");
$_ = <FILE>;
close(FILE);
if ($_ =~ /nine/) {
   print "found\n"
}
else {
   print "not found\n";
}