#!perl -p
0while s/(\W) (((?0)|.) (?3))/$2 $1x/;y/x//d