#!perl

use strict;
use warnings;

my $dataxml = './index.xml';
my $xmlfile;

open($xmlfile,'<',$dataxml) or die $!;

while(my $line = <$xmlfile>)
{
    if(my ($type, $value1, $value2, $value3)=$line=~m!<\s*coverage\s+type="(block|line)\s*,\s*\%\s*"\s+value="(\d+)\%\s+\(([\d\.]+)/([\d\.]+)\)"\s*/>!s){
        print sprintf("%s -- %s -- %s -- %s\n",$type,$value1,$value2,$value3);
    }
}

close ($xmlfile);