Infix to RPN

Score: 143.72 (pass)

#!perl -lp
sub e{my($i)=@_;$i--?do{e($i);eval"e $i;push\@1,'$&'"while$i?/\G[+-]/cg:/\G[*\/]/cg}:/\G-?\d+/cg?push@1,$&:/./g+e(2)+//}s/\s//g+e 2;$_="@1"

Score: 147.75 (pass)

#!perl -lp
@x=qw(*/ +-);sub e{my($i)=@_;$i--?do{e($i);eval"e $i;push\@a,'$&'"while/\G[$x[$i]]/cg}:/\G-?\d+/cg?push@a,$&:/\G./g+e(2)+//}s/\s//g;e 2;$_="@a"