I guess instead of using $_, you can use something like

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

i haven't tried it, but i think this is how it's done