BEGIN{ x0 = "00000"; } { if (substr($0, 1, 1) == "Y"){ print "X"x0""$0; } else{ print $0; if (substr($0, 1, 1) == "X"){ x0 = substr($0, 2, 6); gsub("Y", "", x0); } } }