#!/usr/bin/perl -w

use strict;

SWITCH: for(<STDIN>) {
/^[Yy]o$/       && { print "whats up"; last; };
/^[Nn]ot much$/ && { print "cool"; last; };
   print "HUH?"
}