use Modern::Perl;

my $answer = <STDIN>;

given ($answer) {
    when (/^y(?:es)?$/i)    { say 'yes'; }
    when (/^no?$/i)         { say 'no'; }
    when (/^a(?:ll)?$/i)    { say 'all'; }
    when (/^v|(?:never)$/i) { say 'never'; }
    default                 { say 'default'; }
}