Select Code to Download

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

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