if ($line =~/^S\/R Sending command$^-+$^NRT CC\/(\d+)/) {
print $1;
}