$str = 'The president-elect is a "tough guy", he thinks the rulez don't apply to th_500X.
my @words = $str =~ /(\w+)/g;
__DATA__
president-elect vs president elect
tough guy vs "tough guy"
rulez (typo?)
don t vs don't
th_500x (nonsensical word)