my ($x, $y, $z) = unpack "A10 A3 A*", "example   987testing 1, 2, 3";
# $x = "example"
# $y = 987
# $z = "testing 1, 2, 3"