Select Code to Download

my@wordsInOrder;
while (<>) {
...
        push @wordsInOrder, lc($_);
    }
}

my@wordsInOrder;
while (<>) {
    push @wordsInOrder, lc() =~ m/\w+/g;
}