Bunzip2's getline works just like <>; you can set $/ = "\n\n" to read in paragraph mode. It doesn't seem to be all that well optimized, though. You might try this:

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