s/(\d+)x\^(.)/$1*$2.'x^'.($2-1)/ge,s/\^1|x?([-+]\d+)?$//g,print for<>