in reply to Short form (ternary) if else
perl -e 'my $n = 10; (1)? $n++ : $n--; print qq~This is $n\n~;' [download]
This is 11 [download]
Celebrate Intellectual Diversity