if ($response eq 'yes' || $response eq 'Yes' || $response eq 'YES' || $response eq 'y') {

##</code><code>##

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