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