$whole_number = '0001.0000.0000.0010';
$whole_number =~ s/(?<=\.)(\d+)$/sprintf('%04d', $1+1)/e;
print($whole_number, "\n");  # 0001.0000.0000.0011