if ($line =~/S\/R Sending command\r?\n-+\r?\nNRT CC\/(\d+)/) {
    print $1;
}