foreach (@regexes){
($fileBodyMatch, $decode ) = checkFileBody ($file, $_->{bodyregex});
}

##</code><code>##

open ( DKT, "gunzip -c $filename | ") or die "Can't open pipe to $filename\n";

##</code><code>##

while (<DKT>){
 my $line =$_;
#process data in here
}