Select Code to Download

if (/^(y|yes)$/i)
    {
...
    print "=====================================\n\n";
    &answer;
    }

SWITCH: for ($input) {
    /^(y|yes)$/i && do {
...
    print "=====================================\n\n";
    &answer;
}