#!/usr/bin/perl

use XML::Simple;
use Data::Dumper;
{
    package Data::Dumper;
    sub qquote { return shift; }
}
$Data::Dumper::Useperl = 1;

use encoding 'utf-8';

$xml = $ARGV[0];

$xs = new XML::Simple();
$ref = XML::Simple::XMLin($xml);

foreach $x (@{$ref->{item}}) {
  $rate = ($x->{total} != 0) ? $x->{agreed} / $x->{total} : 0.0;
  $len = length ($x->{text});
  printf "$x->{star},%6.3f, $len\n", $rate;
}