open(READTHIS, "< $readthis") or die "I can't open $readthis: $!\n";
while(<READTHIS>) {
  if (/\bcat\b/i) {
    print "yeppers!";
    last;
  }
}
close(READTHIS);