Select Code to Download

...
our $VERSION = '2021.0814';
...
... $offs = () = /\PM/g;
...

...
our $VERSION = '2023.0511';
...
... $offs = /^\pM/ + ( () = /\PM/g );
...

$ uname -a
CYGWIN_NT-10.0-19045 titan 3.4.7-1.x86_64 2023-06-16 14:04 UTC x86_64 
+Cygwin

$ perl -v | head -2 | tail -1
This is perl 5, version 30, subversion 0 (v5.30.0) built for cygwin-th
+read-multi
...
$ perl -MO=Deparse -e '$offs = /^\pM/ + ( () = /\PM/g );'
$offs = /^\pM/ + (() = /\PM/g);
-e syntax OK

#!/usr/bin/env perl

...
while ($x =~ /\PM/g) {
    print "Char at position @{[pos($x)-1]} NOT Mark property.\n";
}

Perl version: v5.30.0
Example chars with Mark property:
...
Char at position 0 NOT Mark property.
Char at position 2 NOT Mark property.
Char at position 4 NOT Mark property.

Perl version: v5.38.0
Example chars with Mark property:
...
Char at position 0 NOT Mark property.
Char at position 2 NOT Mark property.
Char at position 4 NOT Mark property.