Infix to RPN

Score: 120.80 (pass)

#!perl -lp
use overload'""',sub{${$_[0]}},nomethod,\*a;sub a{$_=pop;bless/g/?\"-$_[0]":\"@_$_"}s/-/- /g+s/\d+/a("$&")/g;*_=eval

Score: 122.76 (pass)

#!perl -lp
sub a{$_=pop;bless/g/?\"-$_[0]":\"@_$_"}use overload'""',sub{${$_[0]}},nomethod,\*a;s/-/- /g+s/0*(\d+)/a($1)/g;*_=eval

Score: 123.76 (pass)

#!perl -pl
sub a{$_=pop;bless[/g/?"-$_[0]":"@_$_"]}use overload nomethod,\*a,'""',sub{$_[0][0]};s/-/- /g+s/0*(\d+)/a($1)/g;$_=eval

Score: 133.79 (pass)

#!perl -l
use overload nomethod,sub{$_=pop;bless[/g/?"-$_[0]":"@_$_"]},'""',sub{$_[0][0]};$_=<>;s/-/- /g;s/0*(\d+)/\(bless[$1])/g;print eval