my $text = $q->param('text');

# Removes any character that ISN'T a digit, word, or space character 
$text =~ s/[^\d\w\s]+//g;