$ perl -wE'say 0 + (0 > 1)'
0

$ perl -wE'say 0 + ""'
Argument "" isn't numeric in addition (+) at -e line 1.
0

##</code><code>##

$ perl -E'$_ = 123; ++( $max = $_ ); say $max; say $_;'
124
123