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