#!perl -p
s!.!/(.).{@{-}}\1/;$1x2!ge