if   ( ""    =~ /^\Q$answer/i ) { default()     }
elsif( "YES" =~ /^\Q$answer/i ) { affirmative() }
elsif( "NO"  =~ /^\Q$answer/i ) { negative()    }

##</code><code>##

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