Select Code to Download

my $count = (eval "\$inp_row =~ tr/$de//");

my $count = (eval "\$inp_row =~ tr/\Q$de\E//");

my $count =()= $inp_row =~ /\Q$de\E/g;