print "Can you write device drivers?";
my $answer =<>;
chomp;
if($answer=~/\byes\b/i){
        print "Wow, you must be very skilled\n";
        }else{
                print "Neither can I....";
                }