http://qs321.pair.com?node_id=11141552


in reply to unpack into arrayrefs?

I don't think there is a way to do that with unpack in just one pass... but...
my @a = map [unpack "CCSS", $_], unpack "(a6)*", $data;