perl -pe'1while s/\d+\D\d+/eval$&/e'