#!perl -pl
s#(.)(.+?) #$1x($2-length$')#e