#!perl -lp
s/\bx/1x/g;$_=join('+',map/x\^/?$_*$'.$&.($'-1):$_+0,/.*?x.?-?[\d.]*/g)||0;s/\+\B|\^1|\b1(?=x)//g