#!perl -l
$_=shift;s~.~$.=$&;@a=();/^.*(??{push@a,$&.$..$'})/for@.?@.:'';@.=@a~ge;print
for@.