welcome to my world
am 13. Jun 2007, 21:45 im Topic 'that's me'
$name =~ s/(\b[^\b]+?\b)/\u\L$1/g;
$name =~ s/(-)([\Q$dnumlaute\E])([^\b]*?\b)/$1$upcase{$2}\L$3/g;
$name =~ s/([\Q$umlaute\E])(\w)/$1\l$2/g;
$name =~ s/(^|\s)([\Q$dnumlaute\E](?=\w))/$1$upcase{$2}/g;
$name =~ s/(\w|[\Q$umlaute\E])([\Q$upumlaute\E](?=\w))/ $1$dncase{$2}/g;
$name =~ s/(-)([\Q$dnumlaute\E])([^\b]*?\b)/$1$upcase{$2}\L$3/g;
$name =~ s/([\Q$umlaute\E])(\w)/$1\l$2/g;
$name =~ s/(^|\s)([\Q$dnumlaute\E](?=\w))/$1$upcase{$2}/g;
$name =~ s/(\w|[\Q$umlaute\E])([\Q$upumlaute\E](?=\w))/ $1$dncase{$2}/g;
