Select Code to Download

use strict;
use warnings;
...
my $repeat = unpack('C', $testinput);
print join(',', unpack("C/C* v$repeat v$repeat", $testinput)), "\n";
# gives "1,2,3,4,5,6" which is ok, but uses two steps