#!perl -p
1while s/\d+\D\d+/eval$&/e