Infix to RPN

Score: 120.62 (fail)

test 45 has not been completed after 20 minutes of execution in a Pentium Celeron at 300 MHz

#!perl -pl
s/\s//g;$_.=")";0while s!\(?([^()]*)\)!$a=$1;for(qw(*/ +-)){0while$a=~s#(\S)([$_])(.*?\S)([*/+-]|$)#$1 $3 $2$4#}$a!e

Score: 121.62 (pass)

#!perl -pl
s/\s//g;$_="($_)";0while s!\(([^()]*)\)!$a=$1;for(qw(*/ +-)){0while$a=~s#(\S)([$_])(.*?\S)([*/+-]|$)#$1 $3 $2$4#}$a!e

Score: 123.65 (pass)

#!perl -pl
s/\s//g;$_="($_)";0while s!\(([^()]*)\)!$a=$1;for$b('*/','+-'){0while$a=~s#(\S)([$b])(.*?\S)([*/+-]|$)#$1 $3 $2$4#}$a!e

Score: 132.65 (pass)

#!perl -pl
s/\s//g;$_="($_)";@p=qw(*/ +-);0while s&\(([^(]*?)\)&$a=$1;0while$a=~s#(\S)([$p[$i]])(.*?\S)([*/+-]|$)#$1 $3 $2$4#||($i^=1);$a&e

Score: 133.63 (pass)

#!perl -pl
s/\s//g;$_="($_)";@p=qw(*/ +-);0while s/\(([^(]*?)\)/$a=$1;0while$a=~s#(\S)([$p[$i]])(.*?\S)([*\/+-]|$)#$1 $3 $2$4#||($i^=1);$a/e

Score: 141.65 (pass)

#!perl -p
s/\s//g;$_="($_)";@p=qw(*/ +-);$i=0while s/\(([^(]*?)\)/$a=$1;0while$a=~s#(\S)([$p[$i]])(.*?\S)([*\/+-]|$)#$1 $3 $2$4#||++$i%2;$a/e;$_.=$/

Score: 149.64 (pass)

Learning Perl is a nice book. ^^"

#!perl -p
s/\s//g;$_="($_)";@p=qw(*/ +-);$i=0while s/\(([^\(\)]*)\)/$a=$1;0while$a=~s#(\S)([$p[$i]])(.*?\S)([*\/+-]|$)#$1 $3 $2$4#||(++$i&&$i<2);$a/e;$_.=$/