#!perl -p
s/(.)(.* .*)./y! !!dfor$d=$2;$1.$"x(y!!!c-3).$1.$d/e