%o = ('+' => 1,
      '-' => 1,
      '*' => 2,
      '/' => 2,
     );

sub rpn2ltr {
for$i(@r=@_){if($p=$o{$i}){$_=$p>$_->[0]?"($_->[1])":$_->[1]
for$r=pop,$l=pop}push@_,[$p||9,$p?"$l $i $r":$i]}$_[-1][1]
}