in reply to Re^3: Use of uninitialized value in concatenation
in thread Use of uninitialized value in concatenation

The "$testing" is replaced with "dollar" with the below code 
#!/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 "/eg;
print "$line\n\n"

[download]
The output which i need is if the values are not present in array, then $Word dollar dollar dollar $test dollartesting

Replies are listed 'Best First'.
Re^5: Use of uninitialized value in concatenation
by AnomalousMonk (Archbishop) on Jun 11, 2009 at 06:24 UTC 
    >perl -wMstrict -le
"my %words = map { $_ => 1 } qw($Word $name $test);
 my $line = '$Word $ $ $ $test $testing';
 $line =~ s/(\$(\w*))/exists $words{$1} ? $1 : qq{dollar$2}/eg;
 print $line;
"
$Word dollar dollar dollar $test dollartesting

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom