#!/usr/local/bin/perl -w
use strict;
use Lingua::EN::NameCase 'nc';

print nc("BAESCHGÄSSEL") . "\n";  #not ok

print lc("BAESCHGÄSSEL") . "\n";  #Better uppercase umlaut