VL
Size: a a a
VL
D
VL
EZ
D
VL
C-x r N
D
VL
VL
EZ
(when (looking-at "[0-9]+")
(let* ((number (match-string 0))
(first-digit (substring-no-properties number 0 1))
(rest-digits (substring-no-properties number 1))
(increased (concat (number-to-string
(1+ (string-to-number first-digit)))
rest-digits)))
(replace-match increased)))
VL
VL
DL
VL
EZ
SS
PS
PS
D