Infix to RPN

Score: 119.62 (pass)

numbers visit the stack now

#!perl -p
s/\s//g;map{push@o,pop@1while@1*"$_$1[-1]"!~/\(|[\/*][-+]$|\d\D/;/\)/?pop@1:push@1,$_}/(?

Score: 123.60 (pass)

#!perl -p
s/\s//g;map{push@0,pop@1while@1*"$_$1[-1]"!~/\d|\(|[*\/][+-]/;/\)/?pop@1:push@{1-/\d/},$_}/(?

Score: 132.59 (pass)

#!perl -p
s/\s//g;map{push@0,pop@1while@1*')-++-*//*'=~/\Q$_\E.*\Q$1[-1]/;/\)/?pop@1:push@{1-/\d/},$_}"($_)"=~/(?