$text =~ s/(\d+)/munge($1)/eg;
                           ^
                           |