my ($f1, $name, $num, $f, $g, $h) = unpack "A9A30A9A2A2A2", $_;