#!/usr/bin/perl -w
use strict;
use warnings;
my %words = map { $_ => 1 } qw($Word $name $test);
my $line = '$Word $ $ $ $test $testing';
$line =~ s/(\$(\w+)*)/exists $words{$1} ? $1 : "dollar$2"/eg;
print "$line\n\n";