$valid = "(?:[_a-zA-Z]\w*)";
$str =~ s/(^|[^\%](?:\%\%)*)\%($valid|\{$valid\}))/"$1".$env->{$2}/ge;