s/([a-zA-Z]*[0-9]*)\z/++(my$x=$1)/e;