if ($response =~ /^y(?:es)?$/i) {