my $a=100;
my $b=-99;

my $c = $b<0 ? $a-$b : $a+b;
print $c