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