#!/usr/bin/env perl

use strict;
use warnings;

use Unicode::UCD "charprop";

print "Perl version: $^V\n";

print "Example chars with Mark property:\n";
print "COMBINING GRAVE ACCENT U+0300:     ", charprop("U+0300", "Gc"), "\n";
print "COMBINING ENCLOSING KEYCAP U+20E3: ", charprop("U+20E3", "Gc"), "\n";

my $x = "a\N{COMBINING GRAVE ACCENT}b\N{COMBINING ENCLOSING KEYCAP}c";

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

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