perl -le'($var = shift) =~ s/(.*)/\u$1/s; print $var' hi