if ($answer =~ /^y/i) {