##
my ($name1, $name3, $name2) = unpack(q{a10 a14 X16 a3), $str);
####
perl -le '$str = q{0123456789abcdefghijklmnopqrstuvwxyz}; my ($name1, $name3, $name2) = unpack(q{a10 a14 X16 a3}, $str); print $name1; print $name2; print $name3;'
####
0123456789
89a
abcdefghijklmn