Select Code to Download

# author: bliako
# for: https://perlmonks.org/?node_id=11114538
...
        SvPOKp(sv)>>14 & 1
    );
}