DB<13> sub inc_version { my ($ver,$pos) = @_ ; my @vers = split /\./,$ver; $vers[$pos]++; return join '.', @vers }

  DB<14> p inc_version("2.26.3",$_),"\n" for 0..2
3.26.3
2.27.3
2.26.4