> my $answer = "y";
y
> say "true" if $answer eq 'Y' | 'y';
true
> say "true" if $answer eq 'N' | 'y';
true
> say "true" if $answer eq 'N' | 'n';
Nil
>