Help for this page

Select Code to Download

Select or download this

use strict;
my $text = "to say it once";
$text =~ s/(\w+)/\u\L$1/g;
print $text;

Select or download this
```
To Say It Once
```