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