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

##</code><code>##

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

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