#!/usr/local/bin/perl

sub get_wer {
    my ($file) = @_;
    open(F,$file);
    while (<F>) {
	$line = $_;
	if ($line =~ /Sum/) {
	    my @vals;
	    my $i=0;
	    $vals[$i++]=$1 	while (/(\d+\.\d*)/g);
	    $wer= $vals[4];
	}
    }
    close F;
    return $wer;
}

my ($file)=$ARGV[0];
$wer = get_wer($file);

print $wer, " ";



