use strict; use warnings; use utf8; binmode STDOUT, ':utf8'; my $test = "abäc||asÖdß! ü"; my @a = split m/\P{IsAlnum}+/, $test; print "@a\n"; __END__ abäc asÖdß ü