cat $1 | gawk '{for ( i=3;i<8;i++ ) { print substr($1,1,i) "X" substr($1,i+1,8-i), $0}}'
