#!perl -p
s/ |((.).)(.*\2)/\3\1/&&redo