Aggiungere 1 a tutti i numeri presenti su una stringa

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