$content =~ s/(\$[a-zA-Z0-9\{\'\}_]+)/ eval($vars{$1}) || $vars{eval($1)} || eval($1) /ge;