my ($text) = @_;
        $text =~ s/[^A-Za-z0-9 -]+//g;
        return $text;