while (<FH>) {
       print  if (
         (/Btree/../PSE:/) or (m#PROCESSING ../Btree.gz#)
         or
         (m#PROCESSING ../log.dummy-10-05-18-05.gz#)
         or
         (m#PROCESSING ../log.dummy-10-01-06-05.gz#)
       )
    }

----------------------------------------------------

##</code><code>##

@ARGV = qw#../log.dummy-10-01-06-05.gz ../log.dummy-10-05-18-05.gz ../Btree.gz/#;

foreach $input (@ARGV) {
    open (FH,"zcat $filename|") or die "Can't Open file: $!\n";
        while (<FH>) {
           print if (
              (/Btree/../PSE:/) or (m#PROCESSING ../$input#)
           )
        }
}