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