use strict;
use warnings;
my @infile = (<>);
my ($citedreferences, $line);
my $n = 0;
foreach $line (@infile){
	if ($line =~ m{^CR .+}gsi){
		do{
		$n++;
		print $n . $line;
		next;
		}
	 until ($line =~ m{^NR}gsi)
}
};