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