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