while(<>){

        if(/Content-Length:\s*(\d*)/){
                $contentlength=$1;
                print "\nContent-Length: $contentlength" if $DEBUG;
        }

        next if $contentlength < 15000;

        if(/Expires:\s*\S*\s*\S*\s*\S*\s*\S*\s*(\S*)/){
                $expires=$1;
                print "\nExpires: $expires" if $DEBUG;
        }

        if(/**** ???? ******/){
                print "\nContent Compression to Date found\n" if $DEBUG;
        }
}