#!perl -w
use strict;
use Carp qw(croak);
use Data::Dumper;

sub get_value {
    my ($values) = @_;
    if ($$values =~ s/^([\x00-\x7F])//) {
        return ord $1
    } elsif ($$values =~ s/^([\x80-\xBF])(.)//) {
        return (((ord($1) & 0b00111111)<< 8)
                + ord($2));
    } elsif ($$values =~ s/^([\xC0-\xFF])(.)(.)//) {
        return ( ((ord($1) & 0b00111111) << 16)
                +(ord($2) <<  8)
                +(ord($3))
               );
    } else {
        croak "Invalid wide character in input: %08b", substr $$values,0,1;
    };
};

my @values = (0b01010101, # 85
              0b10101010, 0b10101010, # 10922
              0b11001100, 0b11001100, 0b11001100, # 838860
              0b00000000, # 0 as another simplicistic testcase
              );
my $values = join "", map { chr } @values;
while (length $values) {
    print get_value( \$values ),"\n";
};