awk -F^ ' $2+0 > 10000 {
#printf "%5d-%4d\n",$0,NF
x[NF]++


for (i=1;i<13;i++) printf "%s^",$i
for(i=NF-4;i<=NF;i++) printf "%s^",$i
print ""
#if(NF <20 ) print NR,$0
}
END {

#for (i in x) printf  "%5d:%5d\n",i,x[i]

} ' B1
