$text =~ /[^\w\d\s,]/;