open my $BZ, "bzcat $file |";
while (<$BZ>) { ... }