Select Code to Download

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

while (<INFILE>) {
    print;
    print "FOUND IT!\n" if /foo/;
}