Gotta be careful not to break

>perl -le"$x='abc'; (substr($x,0,1) = 'd') =~ s/(.)/uc $1/e; print $x"
Dbc
[download]