if (lc $response ~~ ['yes', 'y'])