use Data::Dump qw(pp);
pp unpack "A5 A6 A2 A*", "Hi   Hello World";
__DATA__
("Hi", "Hello", "Wo", "rld")