awk ' { L=1855; for (i=0;i<100;i++)
{
x=substr($0,L+i*6,6)
if (x+0 > -1) print substr($1,1,4),substr($0,L+i*6,6)
}
}
' HEAD | awk '
{
x[$2]++
y[$2]=y[$2]""$1" "
}
END {
for (i in x) if(x[i]>1) print i,y[i]
} '


