Select Code to Download

sub titlecase
{
...
    $words[-1] = ucfirst($words[-1]);
    return join(' ', @words);
}