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