use strict;
use warnings;

open (FILE,"fruits.txt");
    while (<FILE>) {
     if (/Grapes/) {
       print $_;
     } else { print "Grapes not in list\n";}
     if (/strawberry/i) {
       print $_;
     }
     else {
       print "Strawberry not in list\n";
     }
}
close FILE;