@words = ($x =~ /(\w+)/g); # matches,
    # $word[0] = 'cat'
    # $word[1] = 'dog'
    # $word[2] = 'house'