Here is my quick stab at this in perl. It seems convenient to use the highest two bits in the first byte as a count. Of course this probably isn't super fast. 
#!/usr/bin/env perl

use warnings;
use strict;

sub conv_stream
{
    my ($stream_ref) = @_;

    my $first = shift @$stream_ref;
    my $count = ( vec $first, 3, 2 ) || 1;
    # edit: I was using unpack and oct above

    # edit: No need to overwrite the "count" if first bits are 00 or 0
+1
    if ( $count > 1 ) { ( vec $first, 3, 2 ) = 0; }

    my $next = join q{}, splice @$stream_ref, 0, ($count-1);
    my $pad  = (chr 0) x (4-$count);

    return unpack 'N', $pad . $first . $next;
}

# I'm not quite sure I have the right bit ordering...
my @stream = map { pack 'B8', $_ }
    ( '01010101', # 85
      '10101010', '10101010', # 10922
      '11001100', '11001100', '11001100' ); # 838860

print conv_stream( \@stream ), "\n" while ( @stream );

[download]

In reply to Re: [NOT] How would you decode this? by juster
in thread [NOT] How would you decode this? by BrowserUk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.