Select Code to Download

say unpack "C/A", "\x05hellofred";;
hello

my( $len1,  $len2  ) = unpack "SS", $packed;
my( $data1, $data2 ) = unpack "x[SS] A$len1 A$len2", $packed;