open my $fh, "bzcat '$file' |"
    or die "Couldn't spawn [bzcat '$file']: $! / $?";
while (<$fh>) {
    $number_of_lines++
};