stream.releases.pl

#!/usr/local/bin/perl

use IO::Uncompress::Gunzip qw(gunzip $GunzipError);
use XML::XPath;

my $ifile = '/Users/user/Downloads/discogs_20211101_releases.xml.gz';
my $ioref = IO::Uncompress::Gunzip->new( $ifile )
    or die "gunzip failed: $GunzipError\n";

my $xp = XML::XPath->new(ioref => $ioref );
my $nodeset = $xp->find('/releases/release/track'); # find all paragraphs

foreach ( @$nodeset ) {
    say $_
}