for my $i (0..5){
   my $j = $i & 1;
   my $o_vers = $STAGE[$j] =~ m{/rdbms/(?:patches/)?([\d.]+)/} ? $1 : '';
   print "Iteration# $i: Version is: $o_vers\n" ;
}