open (FH, "logfile") || die "Cannot open file";
while ($line = <FH>) {
     my ($pid, $cfile) = ($line =~ /cm:(\d+)\s+([^(]*)/);
     print "$pid $cfile\n";
}