Select Code to Download

use charnames qw( :full );

...
print $s =~ /^(?:\r\n|[\p{Alnum} \n-])*\z/
    ? "match\n"
    : "no match\n";

match

use charnames qw( :full );

...
print $s =~ /^(?:\r\n|[\p{Alnum} \n-])*\z/
    ? "match\n"
    : "no match\n";

match

use Unicode::Normalize qw( normalize );
use charnames          qw( );
...
            normalize($_, $s);
    print("\n");
}

NFC
U+006B: LATIN SMALL LETTER K
...
U+0301: COMBINING ACUTE ACCENT
U+0063: LATIN SMALL LETTER C
U+0301: COMBINING ACUTE ACCENT

"\N{LATIN SMALL LETTER E WITH ACUTE}" =~ /^\X\z/

"e\N{COMBINING ACUTE}" =~ /^\X\z/