$text = join "", $text =~ m{[\x27\P{punct}]+}g;