Add 1 to all numbers on a string

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