$foo = ucfirst lc $foo;