if ($question =~ /^y/i) ...