Sounds like you need something like this:

$parts[$index{Name}] =~  tr/A-Za-z/B-Wzb-w/ if defined ($index{Name});
[download]

Checking whether or not the hash key is defined or exists is faster and more clear than running a regex to see if it contains a digit.

Perhaps you need something similar to this on other replacements also?