#!/usr/bin/perl
use strict;
use warnings;
use Unicode::Collate;	# hier require() zu benutzen oder die Struktur anders bauen bringt keinen Vorteil, hab ich gemessen
my $alphasorter_modul	= Unicode::Collate->new();
my $alphasorter_regex	= qr{[^0-9 a-z!"§$%&/()=?\{\[\]\}\]><|_\-+*,.:;#'~\^]}ix;
my $alphasorter			= sub {
	return defined $_[0] && defined $_[1]
		? $_[0] =~ $alphasorter_regex || $_[1] =~ $alphasorter_regex
			? $alphasorter_modul->cmp($_[0],$_[1])
			: lc $_[0] cmp lc $_[1]
		: 0
	;
};

my @test = ('Nüsse','Nut','Straße','Strass','stricken','Album','nehmen');
print "Perl : ".join(" ",sort {$a cmp $b} @test)."\n\n";
print "Eigen: ".join(" ",sort {$alphasorter->($a,$b)} @test)."\n\n";