$str =~ s/(\d+)/&add($1)/ge;