s[(.{5})((.).(..))(.*)][$1$2 $3Y$4$5], print while <DATA>;