use strict;
use warnings;

use Test::More tests => 2;

my $in = "\N{LATIN SMALL LETTER C WITH CEDILLA}";

like ($in, qr{\A[A-Za-z0-9](?:[A-Za-z0-9_.-]*?[A-Za-z0-9]|)\z}, 'kcott');
like ($in, qr{ \A [[:alnum:]] (?: [[:alnum:]_.-]* [[:alnum:]])? \z }xms, 'AnomalousMonk');