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