Indeed. Or even a simpler parser:

#!/usr/bin/perl -l

use strict;
use warnings;
use XML::Simple;
 
my $xml = XMLin(\*DATA);

print for @{ $xml->{tag} };

__DATA__
<xml>
<tag>This is a line</tag>
<tag>This one goes
over multiple lines</tag>
</xml>
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)