Help for this page
if ($response eq 'yes' || $response eq 'Yes' || $response eq 'YES' + || $response eq 'y') {
if ($response =~ /^y(?:es)?$/i) {