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

##</code><code>##

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