while (<INFILE>) #read the input file
{
while ( /(\w['\w-]*)/g ){  #if we have a "word";
}