i use a lot of

$foo = ucfirst lc $foo;
[download]

this takes care of cases where there are stray uppercase letters, or the original word is all uppercase to begin with