my $count;
eval qq{ \$count = \$inp_row =~ tr/$de/$de/; };
die "Problem in eval'd tr: $@\n";