qcode => sub {
        while ( $data =~ /^(?!(?:0|15|16|31)\D)(\d+)\N{SPACE}
                           (?!(?:0|15|16|31)\D)(\d+)\N{SPACE}
                           (?{ 0 and print "[$1, $2, or match further]" })
                           /mgx ) {
        }
        return 1
    },