Select Code to Download

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

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

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