When working with XML, I prefer XML::LibXML. It's a bit verbose, so I usually switch to its wrapper called XML::XSH2:

open music.xml ;
for //lyric[@number != 1] {
    insert comment xsh:serialize(.) before . ;
    delete . ;
}
save :b ;
[download]