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

%a = ('-' => 1,
      '/' => 1,
     );

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