$a % 2 ? $a += 10 : $a *= 2
($a % 2 ? $a += 10 : $a) *= 2   # what it really is

##</code><code>##

my ($gg) = split ' ', $g;
my ($hh) = split ' ', $h;