cat news.log.{10,9,8,7,6,5,4,3,2,1,0} news.log | grep closed.from | perl -e '$a=0;%a=();sub anon{my ($h)=@_;$a{$h}="host".$a++ unless defined $a{$h}; return $a{$h};} while(<>){@a=split /\ /; print "$a[0] $a[1] $a[2] ", &anon($a[7]), " $a[9] $a[10] $a[11] $a[12] $a[13] $a[14] $a[15]";}' > ~bitbucket2/.newslog