Infix to RPN

Score: 292.43 (pass)

#!perl
$s='-+*\/';
$d='-?\d+';
$_=<>;
s/\s+//g;
@_=(m/(^$d|(?

Score: 337.49 (fail)

seem to have happened something strange when you submitted because your solution have a lot of html in it ..

#!perl
$s='-+*\/';
$d='-?\d+';
$_=<>;
s/\s+//g;
@_=(m/(^$d|(?[$s(]