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