s/(\$\w+)/exists $variables{$1} ? $variables{$1} : $1/ge;

##</code><code>##

s/(\$(\w+))/exists $variables{$2} ? $variables{$2} : $1/ge;