while(<>){
/^i'm tired$/i and (print "Good by!"), last;
...
}