my @lines = <FILE>;
while (<FILE>)
{
if ($_ =~ /nine/) {
print "found\n";
}
else {
print "not found\n";
}
}