@words=  $line =~ /(\w+(?:'\w+)?)/g;

##</code><code>##

    @words=  $line =~ /([[:alpha:]]+(?:'[[:alpha:]]+)?)/g;

##</code><code>##

    @words=  $line =~ /([[:alpha:]]+(?:[-'][[:alpha:]]+)*)/g;