#!/usr/bin/perl -w

use Inline C => <<'END_C';

void num_test(SV* sv) {

    sv_2nv(sv);
    //sv_2iv(sv);

    do_sv_dump(0, Perl_debug_log, sv, 0, 0, 0, 0);   // like Devel::Peek
}

END_C

num_test('aa');
num_test('123');
num_test('123aa');
num_test('aa123');
num_test('1.23');