why did you replace [:punct:], I was only explaining what [:punct:] would match, you can theorically replace it by its equivalency, but the comma included in the list is creating a different parameter for the $regsubex identifier, just use the [:punct:] version really.
