%CpmRC = map /^(\d+)\W\d+\W\d+\W(\d+)/, <DATA>;
# or...
%CpmRC = map { (/\d+/g)[0,3] } <DATA>;  # reads a bit nicer