Help for this page

Select Code to Download

Select or download this

my %subs = (home => 'HomePathFromConfigOrEnv');
my $keyMatch = join '|', keys %subs;
...

$cfgStr =~ s/!($keyMatch)!/$subs{$1}/g;
print $cfgStr;

Select or download this
```
HomePathFromConfigOrEnv/path
```