Select Code to Download

    split /PATTERN/,EXPR,LIMIT
    split /PATTERN/,EXPR
    split /PATTERN/
...

            In scalar context, returns the number of fields found.
    ....

#!/usr/bin/perl
use 5.014;
# 1007352
...
my @word = split "", $lines;  # $word replaced with @word

say @word;

#!/usr/bin/perl
use 5.014;
# 1007352
...
for $word( @word) {
    say $word;
}