$CR{substr(split(/\s/,$line)[3],1,11)}[$line=~/(NNNNN)/+2*$line=~/(XXXXX)/]++;