Code:
%text = $regsubex($1-,/[^a-z ]/igS,)


If you want to allow more characters, put them inside the [] next to a-z. Most of them should work, a few are reserved characters and need to be escaped with \