CGI Remove unwanted characters

Remove unwanted characters

$string =~ s/[&*^() !%$@#+_~,<>./?]//g;