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