Infix to RPN

Score: 142.58 (pass)

#!perl -pl
$_="(@{[/\d+|\S/g]} )";s/([^\d)] -) /$1/g;1while s#\([^()]+\)#$_=$&,s= ([*/]) (\S+)=,$2,$1=||s/ ([+-]) (\S+)/,$2,$1/||y/() //d,$_#e;y/,/ /

Score: 145.57 (pass)

s/(.).../$1.../ was rather silly

#!perl -pl
$_="(@{[/\d+|\S/g]} )";s/(?

Score: 159.55 (pass)

remove sub,local,extra\s

#!perl -pl
$_="(@{[/\d+|\S/g]} )";s/(?

Score: 183.58 (pass)

#!perl -pl
$_="( @{[m=(\d+|\S)\s*=g]} )";s/(?

Score: 190.58 (pass)

#!perl -pl
$_="( @{[m=(\d+|\S)\s*=g]} )";s/(?

Score: 198.55 (pass)

Under 200!

#!perl -pl
@x=m=(\d+|[()+/*-])\s*=g;$_="( @x )";sub i{local$_=pop;s=(\S+) ([*/]) (\S+)=$1,$3,$2=||s/(\S+) ([+-]) (\S+)/$1,$3,$2/||s/. (\S+) ./$1/;$_}s/(?

Score: 213.53 (pass)

test 44 took over an hour before I eliminated $& from my code

#!perl -pl
@x=m=(\d+|[()+/*-])\s*=g;$_="( @x )";sub i{local$_=shift;s=(\S+) ([*/]) (\S+)=$1,$3,$2=||s/(\S+) ([+-]) (\S+)/$1,$3,$2/;"( $_ )"}s/(?