</the/file perl -MIO::File -ne'
    my $nr = 1+int(($.-1)/1_000);
    $handles[$nr] = IO::File->new(sprintf("%05dNR.txt", $nr), "w") unless defined $handles[$nr];
    $handles[$nr]->print($_);
'