#!perl -p
s/\w+\^(.)/$&*$1.'x^'.~-$1/ge;s/\^1|[-+x]+\d*$//g