Select Code to Download

$l_Value =~ s/([a-zA-Z]\w+)/${$o_Object->GetValue(\ $1)}/gs;

sub GetValue {
  my $o_Object    = shift;
...
  }
  return \ $l_Value;
}