my $test = "äasdfsf";
if($test =~ /^[ÄÖÜ]/){
  print "MATCH\n";
}