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