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