Select Code to Download

while ($line = <READTHIS>) {
    if ($line =~ /cat/) {
        print "yeppers!";
    }
}

while ($line = <READTHIS>) {
    if ($line =~ /cat/) {
...
        print $line;
    }
}

while ($line = <READTHIS>) {
    print "MOO!\n";
...
        print "yeppers!";
    }
}