Select Code to Download

use Modern::Perl;

my $answer = <STDIN>;
...
    when (/^v|(?:never)$/i) { say 'never'; }
    default                 { say 'default'; }
}