$|=1;
while(1){
  chomp(my $say = <>);
  ($say eq 'q') ? (exit(0)) : (print "\nI caught $say \n");
}