#!/usr/bin/perl

use warnings;
use strict;

my $string = "“The   Class Description_            Test”";

$string =~ s/[^a-zA-Z0-9,_\s{2,}]+//g;

print $string;
# Expecting: The Class Description_Test