Select Code to Download

use strict;
use warnings;
...
my $line = '$Word $ $ $ $test';
$line =~ s/(\$\w*)/exists $words{$1} ? $1 : " dollar "/eg;
print "$line\n\n";

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