$ perl -wle'$foo = "foo"; print "\u$foo"'
Foo