if (lc $response ~~ [qw(yes y)])