$text =~ s/[^\w\d\s'"\-]//g; @words = parse_line('\s+', 1, $text);