my %subs = (home => 'HomePathFromConfigOrEnv');
my $keyMatch = join '|', keys %subs;
my $cfgStr = '!home!/path';

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