Select Code to Download

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>;