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