my ($type, $value1, $value2, $value3)=$xml=~m|<\s*coverage\s+type="(block|line)\s*,\s*\%\s*"\s+value="(\d+)\%\s+\(([\d\.]+)/([\d\.]+)\)"\s*/>|s;

my ($type, $value1, $value2, $value3)=$xml=~m|<\s*coverage\s+type="(block|line)\s*,\s*\%\s*"\s+value="(\d+)\%\s+\(([\d\.]+)/([\d\.]+)\)"\s*/>|s;

# !perl

use strict;
use warnings;

my $dataxml = 'z:\tla\scripts\emmaparser\index.xml';
my $xmlfile;

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

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

close ($xmlfile);

my ($type, $value1, $value2, $value3)= $line =~ m!<\s*coverage\s+type="(block|line)\s*,\s*\%\s*"\s+value="(\d+)\%\s+\(([\d\.]+)/([\d\.]+)\)"\s*/>!s;