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