Select Code to Download

# slurp file contents
my $contents;
...
}
# split into array on consecutive whitespace
my @words = split /\s+/, $contents;