sub get_words {

   map /(\w+(?:'[ts])?)/, @_;

}

##</code><code>##

  http://www.Perlmonks-Detox.com