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