Select Code to Download

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

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