PPCODE:
    int i;
    f();

##</code><code>##

PREINIT:
    int i;
PPCODE:
    f();

##</code><code>##

PPCODE:
    {
        int i;
        f();
    }

##</code><code>##

say lengths1(substr("abc", 0, 1));  # 0

##</code><code>##

say lengths1("abc");  # 16

##</code><code>##

$_="\x{A0}";               say lengths1($_), "=", length($_);  # 1=1
$_="\x{A0}\x{2660}"; chop; say lengths1($_), "=", length($_);  # 2=1

##</code><code>##

say lengths1(456), "=", length(456);  # 0=3