my $words ='one two three';
$words =~ s/^([[:alpha:]]+)/ uc $1 /e;
print $words;
__END__
ONE two three