my @S = (undef, map { lc } split(/\w+/, $s));