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