Below is what I have done, I would like to improve it.
How would a monk do it? Thanks,
use strict;
my $newvar;
my $var = "123, abc; don't use (these)";
my(@var) = split /\s+/, $var;
foreach (@var) {
s/\W//g;
$newvar .= "$_ ";
}
print "VAR: $newvar";
#VAR: 123 abc dont use these