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