use strict;

my $ansflg = 0;
while (!$ansflg) {
    # No valid answer received yet
    print "Confirm [Y,n]: ";
    my $geninp = <STDIN>;
    chomp $geninp;
    if ($geninp =~ /^\s*$/) {
        # Blank answer means DEFAULT
        $geninp = 'Y';
    }

    my $genexp = quotemeta $geninp;
    if ("YES" =~ /^$genexp/i) {
        # Said YES
        print "Answer = YES\n";
        $ansflg = 1;
    } elsif ("NO" =~ /^$genexp/i) {
        # Said NO
        print "Answer = NO\n";
        $ansflg = 1;
    } else {
        # Said something else
        # Do nothing; repeat the prompt
    }
}

exit;