my @word = split " ", $_;

##</code><code>##

my @words = 
    map { lc }          # convert to lower case
    split /[\s.]+/, $_; # split on white space and "."