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