#!perl -p
s;(.) (\d\S*) ((?2));$2=$3=$1;?redo:y;=;