Infix to RPN

Score: 179.70 (fail)

Consistently causes Perl 5.6.1 on Linux to segfault in test 33.

#!perl -l
$e=qr/(??{$t})(([+-])(??{$t})(?{push@_,$2}))*/;$t=qr/(??{$f})(([*\/])(??{$f})(?{push@_,$2}))*/;$f=qr/\((??{$e})\)|((-|)\d+)(?{push@_,$1})/;$_=<>;s/ |\t//g;$_=~$e;$,=' ';print@_

Score: 209.69 (pass)

temporary HACK to avoid segfault on linux

#!perl -l
$e=qr{(??{$t})(([+-])(??{$t})(?{push@_,$2}))*};$t=qr{(??{$f})(([*/])(??{$f})(?{push@_,$2}))*};$f=qr{\((??{$e})\)|((-|)\d+)(?{push@_,$1})};$_=<>;s/ |\t//g;1while(s/\(\(([^)])\)\)/($1)/);$_=~$e;$,=' ';print@_