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