Select Code to Download

print join(',', unpack("C/C* v*", $testinput)), "\n";

my $testinput = pack('C/a* a* a*', 
                     (pack 'Cvs', 1, 3, -5), 
...
                     );

print join(',', unpack("C/(Cvs)", $testinput)), "\n";