$x = "string";
$x = "\u\L$x";
print $x,"\n";

$x = "string";
$x = "\L\u$x";

print $x,"\n";

##</code><code>##

String
String