my $z = IO::Uncompress::Bunzip2::->new($filename);

{
    local $/ = '';

    while (<$z>) {
        ...        
    }
}