>perl -wMstrict -MData::Dump -le
"my $str = qq{\x05\x00\x08\x00\x05\x00\x06\x00Just Another pack Hacker};
 ;;
 my $template = q{
   ( s4
     @0 x[s0] s  @0 s0 x[s4]            /a
     @0 x[s1] s  @0 s1 x[s3]  /x        /a
     @0 x[s2] s  @0 s2 x[s2]  /x /x     /a
     @0 x[s3] s  @0 s3 x[s1]  /x /x /x  /a
     )
   };
 ;;
 my @ra = unpack $template, $str;
 dd \@ra;
"
[5, 8, 5, 6, "Just ", "Another ", "pack ", "Hacker"]