#! perl -slw
use strict;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => '_24to32', CLEAN_AFTER_BUILD => 0;

void uic( SV *src ) {
    int i = 0;
    STRLEN l;
    unsigned char *s = (unsigned char *)SvPV( src, l );

    inline_stack_vars;
    inline_stack_reset;

    while (i < l) {
        int n = ( s[i] >> 2 ) & 0x3f;
        inline_stack_push( sv_2mortal( newSViv( n ) ) );
        n = ( s[ i++ ] & 0x03 ) << 4;
        n |= ( s[i] >> 4 ) & 0x0f;
        inline_stack_push( sv_2mortal( newSViv( n ) ) );
        n = ( s[ i++ ] & 0x0f ) << 2;
        n |= ( s[i] >> 6 ) & 0x03;
        inline_stack_push( sv_2mortal( newSViv( n ) ) );
        n = s[ i++ ] & 0x3f;
        inline_stack_push( sv_2mortal( newSViv( n ) ) );
     }
     inline_stack_done;
}

END_C

use Math::Random::MT qw[ rand ];

while( 1 ) {
    my $packed = pack 'N6', map rand( 2**32 ), 1 .. 6;
    my @decoded = uic( $packed );
}

##</code><code>##

#! perl -slw
use strict;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => '_24to32', CLEAN_AFTER_BUILD => 0;

void uic( SV *src ) {
    int i = 0;
    STRLEN l;
    unsigned char *s = (unsigned char *)SvPV( src, l );

    inline_stack_vars;
    inline_stack_reset;

    while (i < l) {
        int n = ( s[i] >> 2 ) & 0x3f;
        inline_stack_push( newSViv( n ) );
        n = ( s[ i++ ] & 0x03 ) << 4;
        n |= ( s[i] >> 4 ) & 0x0f;
        inline_stack_push( newSViv( n ) );
        n = ( s[ i++ ] & 0x0f ) << 2;
        n |= ( s[i] >> 6 ) & 0x03;
        inline_stack_push( newSViv( n ) );
        n = s[ i++ ] & 0x3f;
        inline_stack_push( newSViv( n ) );
     }
     inline_stack_done;
}

END_C

use Math::Random::MT qw[ rand ];

while( 1 ) {
    my $packed = pack 'N6', map rand( 2**32 ), 1 .. 6;
    my @decoded = uic( $packed );
}