Help for this page

Select Code to Download

Select or download this
```
print OUT join("\n", @finalarray);
```

Select or download this

use strict;
use warnings;
...
$all_text =~ s/[^a-z\-\']/ /g;
my @wordarray = split(/[\n\s]+/, $all_text);
...