#! perl -slw
use strict;
use bytes;

my $DATASIZE = 10;
my @stream = (
    "abcdefghij\x04fredabcdefghij\x06barneyabcdefghij\x00abcde",
    "fghij\x07bam bamabcdefghij\x00abcdefghij"
);

my $stream = '';
for ( @stream ) {
    $stream .= $_;
    while( length( $stream ) > $DATASIZE) {
        my( $data, $len, $meta ) = unpack "a$DATASIZE C X C/A", $stream;
        print "\ndata:$data";
        print "meta:$meta" if $len;
        my $trim = $len ? $len+1 : 1;
        $stream = bytes::substr( $stream, $DATASIZE + $trim );
    }
}
__END__
c:\test>junk

data:abcdefghij
meta:fred

data:abcdefghij
meta:barney

data:abcdefghij

data:abcdefghij
meta:bam bam

data:abcdefghij