/^(\d+)\W\d+\W\d+\W(\d+)\W\w+/; 
$CpmRC{$1}=$2; 

##</code><code>##

if (/^(\d+)\W\d+\W\d+\W(\d+)\W\w+/) {
  $CpmRC{$1}=$2;
}