Select Code to Download

use strict;
use warnings;
...

my @words = split /\b(\w+)\b/, $text;
print Dumper \@words;

$VAR1 = [
          '',
...
          '.
'
        ];