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

void strIter( SV *code, SV *string )  {
    dSP;
    STRLEN i ;
    char *p = SvPVX( string );
    SV *c;

//    ENTER;
//    SAVETMPS;

    c = newSV( 1 );
    SvCUR( c ) = 1;
    SvLEN( c ) = 2;
    SvPVX( c ) = p;
    SvPOK_only( c );
    GvSV(PL_defgv) = c;

    for( i=0; i < SvCUR( string ); ++i ) {

        PUSHMARK(SP);
        call_sv( code, G_NOARGS |G_VOID );
        PUTBACK;
        SvPVX( c ) = ++p;
        SvPOK_only( c );

    }
//    FREETMPS;
//    LEAVE;
    GvSV(PL_defgv) = string;
}

END_C

use strict;
use Time::HiRes qw[ time ];
use Benchmark qw[ cmpthese ];

our $string = 'abcdefghijklmnopqrstuvwyxABCDEFGHIJKLMNOPQRSTUVWXY' x 100;

for (1 .. 100 ) {
    strIter sub{ print; }, $string;
}