SWITCH: { $answer =~ /^yes|y$/ && do { affirmative(); last SWITCH; }; $answer =~ /^no|n$/ && do { negative(); last SWITCH; }; default(); }