in reply to increment # but keep # of digits same
Use sprintf '%04d':
$whole_number = '0001.0000.0000.0010'; $whole_number =~ s/(?<=\.)(\d+)$/sprintf('%04d', $1+1)/e; print($whole_number, "\n"); # 0001.0000.0000.0011 [download]