Dear Monks
What I'm trying to do is take a string and typecase, or make the first letter of every word a capital. I came up with the below solution. Since I don't get to use regex as often as I would like, I was wondering if there might be a more graceful way of doing this.

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

Thank you for any input.