perl -e "$var = shift; $var=~s/^(\Q$var\E)$/\u$1/s; print $var;" hi