$a = 'haha';
$a =~ s/^([a-z])/\U$1/; 
print $a;