#!perl -p
s;.(?0).|\K; $&