#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use utf8;
use locale;
use POSIX qw( locale_h );

my $locale = setlocale( LC_CTYPE );
say $locale;	 # de_DE.UTF-8


my $string = 'abcäöüß';
my @match = $string =~ /(\w)/g;

say "@match"; 	# a b c