use utf8;
use v5.32;
use open qw(:std :utf8);

no warnings qw(experimental::uniprop_wildcards);

use charnames qw();

my @letters = qw(a à á â ã ä å);

foreach my $letter ( @letters ) {
	my $name = charnames::viacode( ord $letter );
	say "$letter ($name):",
		$letter =~ m<\p{Name=/\bWITH\b/}>
		?
		'Matched' : 'Missed';
	}