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