use locale;
use POSIX qw(locale_h);
setlocale(LC_COLLATE,"de_DE") or die "foo? - $!\n";
print "yup" if "fähler"=~/^\w+$/;
__END__
yup