$/="";
my $randstr = rvg();
while(<FILE>) {
   s/(?<!\\)(\$\w+(?![\[{\w]))/$randstr/g;
   print;
}