#!/usr/bin/perl

use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my $file = './test.xml';
my $ref = XMLin($file);

for my $coverage(@{$ref->{coverage}}){
    (my $type = $coverage->{type}) =~ s/, %$//;
    print $type," -- ",$coverage->{value},"\n";
}

 <all name="all classes">
     <coverage type="class, %" value="96%  (77/80)"/>
     <coverage type="method, %" value="66%  (391/589)"/>
     <coverage type="block, %" value="70%  (11659/16578)"/>
     <coverage type="line, %" value="70%  (2421.3/3469)"/>
</all>