#!/usr/bin/perl -w
use strict;
open CF_FILES, "cf.files" or die "Error: $!";
my @cf_files=<CF_FILES>;
close CF_FILES;
foreach my $cf(@cf_files){
 open CF, $cf
 my @AR =<CF>;
my @L = grep( /bgs/, @AR);
print @L;
}  ;