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