sub dehuff1 {
    my ( $string, $code) = @_;
    my %decode = reverse %$code;
    my ( $ret, $c, $where) = ( '', '', 0);
    while ( 1 ) {
        $c .= vec( $string, $where ++, 1);
        next unless exists $decode{ $c};
        last if $decode{ $c} eq '_eos';
        $ret .= $decode{ $c};
        $c = '';
    }
    return $ret;
}