my $data = pack "H*" => "0000230ebb0000002b0ece000000330ee200"; my $f = [ map [ unpack "(CCS<S<)" ] => unpack "(A6)*" => $data ];'