my $word = ucfirst(lc($word));