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

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.