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