#!/usr/bin/perl
# Core Module
use strict;
use warnings;
use utf8;
use open ':utf8';
use open ':std';
use charnames ':full';
use Unicode::UCD qw(charinfo);
use Data::Dumper;

my $char = 'ä';
print Dumper charinfo(ord $char);

my $string = 'hälö';
if ( $string =~ m/ ( \N{LATIN SMALL LETTER A WITH DIAERESIS} ) /xms ) {
    print "Matched: [$1]\n";
}