in reply to ternary operator

You could try 
$OPER = $_ eq 's' ? 's' : 'c' ;

[download]

In Section Seekers of Perl Wisdom