my $user = "Hello There,
Trusting Programmer";
$user =~ s/^(.)(.*)(.)$/\u$1\L$2\E\u$3/;
print $user;