#!/usr/bin/perl
use strict;
use warnings;
use Inline qw(C);

c_func('AAA:BBB');

sub perl_sub {
    for (@_) {
        /^([^:]+):([^:]+)$/;
        print "$1 - $2\n";
    }
}

__DATA__
__C__

void c_func(SV* text) {
    Inline_Stack_Vars;
    Inline_Stack_Push(newSVpvf("CCC:DDD"));
    Inline_Stack_Done;
    perl_call_pv("main::perl_sub", 0);
    Inline_Stack_Void;
}