s=$0{for($0=OFS=i=_;c=substr(s,++i,1);$RLENGTH=c c)match(s,c".*"c)}1