nawk -f gus.awk myFile
{ while( match($0, "[0-9][0-9]*")) { len=substr($0, RSTART, RLENGTH) for(i=1;i<=len;i++) rep=(i==1)?".":rep "." sub(len rep, "") } } 1