eval "tr/$oldlist/$newlist/";
die $@ if $@;

##</code><code>##

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