while (my $line = <INFILE>) {
    print $line;
    print "FOUND IT!\n" if $line =~ /foo/;
}