#!/usr/bin/perl

use strict;
use warnings;
use utf8;

my $test = "äasdfsf";
print "MATCH A\n" if($test =~ /^[ÄÖÜ]/);
print "MATCH B\n" if($test =~ /^[äüö]/);
print "MATCH C\n" if($test =~ /^[ÄÜÖ]/i);