c:\@Work\Perl\monks\Lejocode>perl -wMstrict -le
"use Lame;
 ;;
 my $s = 'a Z=4 b ZZ=1 c Z = 123Z=99d XP e XXPP f XP gXPh';
 print qq{'$s'};
 ;;
 Lame::parse(\$s);
 print qq{'$s'};
"
'a Z=4 b ZZ=1 c Z = 123Z=99d XP e XXPP f XP gXPh'
'a Z=20 b ZZ=1 c Z = 615Z=495d XP (1) e XXPP f XP (2) gXP (3)h'