my ($name1, $name3, $name2) = unpack(q{a10 a14 X16 a3), $str);