Re^2: help with a regex

[Athanasius]

You should print $_ instead

Or, just add the /r modifier to the substitution:

#! perl
use v5.14;
use warnings;
use strict;

my %words          = (word => 1, word2 => 1, word3 => 1);
my ($temp, $temp1) = qw(WORD2 word2);
$_                 = 'here is word2';

say s/$temp1/$words{$temp1} ? "$temp " : "[$temp] "/er;

Output:

13:14 >perl 515_SoPW.pl
here is WORD2

13:15 >

From s/PATTERN/REPLACEMENT/msixpodualgcer in Regexp Quote Like Operators:

r Return substitution and leave the original string untouched.

Hope that helps,

[AnomalousMonk]

It should be made clear that the  s///r regex switch is only available with Perl versions 5.14 and above.