gistfile1.txt

use QRegexJVM;

sub try_match($s) {
    # Create a cursor.
    my $ci := NQPCursor.'!cursor_init'($s);
    
    # Start it, match a digit.
    my $c := $ci.'!cursor_start_cur'();
    $c.'!cursor_pos'(0);
    my $d := $c.digit();
    
    # Get the Match object; boolify.
    my $m := $d.MATCH();
    $m.Bool()
}

say(try_match('5'));    # 1
say(try_match('a'));    # 0