Select Code to Download

foreach my $range (values %Build) {
   $message =~ s{ (\[ ([$range]+) \]) }{
...
      defined($val) ? $val : $1
   }exig
}

my %memoize;
foreach my $range (values %Build) {
...
      defined($val) ? $val : $1
   }exig
}