#!perl -p
0while s;\B..\w\b;,&