#!/usr/bin/perl -w

open In, "log.2008-01-11" or die "log: $!\n";
open Out, ">report.2008-01-11.txt" or die "report: $!\n";
while (<In>){
    chomp;
    next unless ($_ =~/channel = two.* (\d+)$/);
    print Out "$_  \n";
}
close In;
close Out;