Depending on what you consider a word, this may be a better solution:

unless (/\d/) {
    @words = split(' ', $_);
}
[download]