$string =~ s/[^\w\s\.\,]//g; #plus any other metachars you want
# OR
$rawstring = m/([\w\s\.\,]+)/; #plus any others...
$string = $1;