if (/^(y|yes)$/i)
    {
        print "YIPPEEE.!!!!\n";
    }
elsif (/^(n|no)$/i) 
    { 
        print "Begone, evil peon!\n"
    } 
else 
    {
    # Validate user input and return message if invalid
    print "\n\n=====================================\n";
    print "You Have Entered and Incorrect Option\n";
    print "Valid Options are [Y/N]\n";
    print "=====================================\n\n";
    &answer;
    }

##</code><code>##

SWITCH: for ($input) {
    /^(y|yes)$/i && do {
        print "YIPPEEE.!!!!\n";
        last SWITCH;
        };
    /^(n|no)$/i && do {
        print "Begone, evil peon!\n";
        last SWITCH;
        };
    # Validate user input and return message if invalid
    print "\n\n=====================================\n";
    print "You Have Entered an Incorrect Option\n";
    print "Valid Options are [Y/N]\n";
    print "=====================================\n\n";
    &answer;
}