A regular expression free version (not arguing for or against):

$version = do { my $v = [ split /\./, '0.8.34.0' ]; $v->[2]++; join '.
+', @$v };
[download]