my @entry = split(/=/, $line, 2);
$val{$entry[0]} = $entry[1];

##</code><code>##

s/\$(\w+)/exists($val{$1})?$val{$1}:die "Undefined '$1' in entry '$newstring' (line $.)"/eg;