Infix to RPN

Score: 267.25 (pass)

The question is whether your machine won't break on the long -e option. Mine doesn't.

#!perl -n
close STDERR;
s!(^|[(*/+-])\s*(-?)\s*(\d+)!$1 d("$2$3")!g;
$_=`$^X -MO=Deparse,-p -e'$_'`;
print map({
if (/\d/) {
        ' 'x($i++>0).$_;
} elsif (/\)/) {
        $i++;shift@a;
} else {
        /\(/?(unshift@a,''):($a[0]=" $_");();
} 
}/-?\d+|[-*+\/()]/g),@a,'
'