chomp(my $left = ); chomp(my $op = ); chomp(my $right = ); print $op eq '+' ? $left + $right : $op eq '-' ? $left - $right : $op eq '*' ? $left * $right : $op eq '/' ? $left / ($right||1) : "dunno operator '$op'", , "\n";