perl '-M0;@h{a..z}=1'-pe 's/\d/(%h)[$&*2]/eg' input.txt