use strict;
use warnings;

while (defined(my $line = <DATA>)) { 
       chomp($line);
       #
	if ($line =~/S\/R Sending command\r?\n-+\r?\nNRT CC\/(\d+)/) {
	    print "$1\n$line\n";
           } # if
          } # while


__DATA__
S/R Sending command
---------------------------------------------------------------------------
NRT CC/1234567890