$line =~ s/(\$(\w*))/exists $words{$1} ? $1 : "dollar$2"/eg;