#!/usr/bin/perl -w use 5.010; use strict; use utf8; my $string = 'abcäöüß'; # Achtung, der Quelltext muss utf8-kodiert sein my @match = $string =~ /[[:word:]]/g; if (${^UTF8LOCALE}) { # Erkennt, ob utf8 ausgegeben werden soll # Ausgaben nach STDOUT werden nach utf8 konvertiert binmode STDOUT, ':encoding(utf8)'; } say "@match"; # a b c ä ö ü ß