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