Use of uninitialized value in print at z:\tla\Scripts\Emmaparser\emmaparser2.pl line 18, <$xmlfile>

#!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);

  <?xml version="1.0" encoding="UTF-8" ?> 
- <!--  EMMA v2.0.5312 report, generated Wed Nov 01 16:14:54 CET 2006 
  --> 
- <report>
- <stats>
  <packages value="5" /> 
  <classes value="80" /> 
  <methods value="589" /> 
  <srcfiles value="57" /> 
  <srclines value="3469" /> 
  </stats>
- <data>
- <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)" /> 
- <package name="vdo.e60.media.protocol.external.audio.mp3">
  <coverage type="class, %" value="93% (14/15)" /> 
  <coverage type="method, %" value="53% (52/98)" /> 
  <coverage type="block, %" value="62% (1435/2322)" /> 
  <coverage type="line, %" value="59% (279.9/475)" /> 
- <srcfile name="Coding.java">
  <coverage type="class, %" value="100% (2/2)" /> 
  <coverage type="method, %" value="30% (3/10)" /> 
  <coverage type="block, %" value="25% (36/143)" /> 
  <coverage type="line, %" value="20% (7/35)" /> 

if match 
then quit matching

       print sprintf("%s -- %s -- %s -- %s\n",$type,$value1,$value2,$value3);

last if $type eq 'line'

my ($timestamp) = $line =~ /(\w{3} \w{3} \d{2} \d{2}:\d{2}:\d{2}) \w{3,} \d{4}/