Help for this page
while (my $name = <DATA>) { ... say $name; }
say s/[^a-zA-Z]+|(?<=[a-zA-Z])(?=[A-Z])/ /gr =~ s/(\w+)/\u\L$1/gr for +<DATA>;