my @words = split /\s/, $line;

##</code><code>##

my @words = split /\s+/, $line;

##</code><code>##

/\w[\w'-]*\w|\w+/

##</code><code>##

my @stopList = ("the", "a", "an", "of", "and", "on", "in",
 "by", "with", "at", "he", "after", "into", "their", "is",
 "that", "they", "for", "to", "it", "them", "which");

##</code><code>##

($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print