substr($x,0,1) =~ s/(.)/uc $1/e;