Haven't tested it, but I believe that the code below will should strip out all of the "unwanted" characters in an array. ("Unwanted" as in non-alphanumeric, which is what I believe that you're asking for.)

foreach my $item (@array) {
  $item =~ s/\W//g; # Remove non-word characters
  $item =~ s/_//g; # Remove all underscores
}
[download]