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

##</code><code>##

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

##</code><code>##

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