unless $input eq 'y' | 'n' | 'c' { print "(y)es/(n)o/(c)ancel? "; } unless ($input eq 'y' || $input eq 'n' || $input eq 'c') { print "(y)es/(n)o)/(c)ancel? "; }
:next