use strict;
use warnings;

my $string = "aabbzzb";
my $oldchars = "//; print `dir *.*`; \\\$string =~ tr/";

eval "\$string =~ tr/$oldchars//d";
print $string; #will print zz

##</code><code>##

$string =~ s/[$oldchars]//g;