#!perl -p
s/.\d*//;s/ ( ?.){0$&}\K/ /&&redo