C:\@Work\Perl\monks\714341>perl -wMstrict -le
"print qq(\noutput:);
 for (@ARGV) {
   my $data = pack( 'H*', $_);
   my $offset = 0;
   while ($offset < length $data) {
     my ($kategory, $len) = unpack(qq{x$offset n n}, $data);
     $len = 65536 - $len if $len > 32767;
     my $contents = unpack(qq(x$offset x4 A$len), $data);
     $offset += 4 + $len;
     printf(qq(%04X, `%s' \n), $kategory, $contents);
     }
   print '------';
   }
"
0001fffd206162
0002000441424344
0001fffd20616200020004414243440005fffc454443

output:
0001, ` ab'
------
0002, `ABCD'
------
0001, ` ab'
0002, `ABCD'
0005, `EDC'
------