Select Code to Download

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

Use of uninitialized value in concatenation (.) or string at ex.pl lin
+e 6.
Use of uninitialized value in concatenation (.) or string at ex.pl lin
+e 6.
Use of uninitialized value in concatenation (.) or string at ex.pl lin
+e 6.
$Word dollar dollar dollar $test dollartesting