my $data = ; $data =~ s/\b(\w{1})(\w*)/\u$1\L$2/g; print $data; __DATA__ balh balh aLhKKjal dfjsdlkj IUfJ