I can't at the moment°, but imho the first step on RHS is string like var interpolation. There is no eval flag set.

°) mobile in a disco, ain't that I'll? ;)

c:\@Work\Perl\monks>perl -wMstrict -le
"my %hash = ('$1' => 'oops',  'abc' => 'ok');
 ;;
 'abc' =~ m{ (abc) }xms;
 print qq{captured '$1'};
 ;;
 print $hash{'$1'};
"
captured 'abc'
oops
[download]

---

Give a man a fish:   <%-(-(-(-<

You missed the point. Imho RHS of s/// isn't evaluated w/o e flag.

Cheers Rolf

_{(addicted to the Perl Programming Language and ☆☆☆☆ :)}

Hi AnomalousMonk, thanks for your reply. I probably should have specified that I'm pretty new to perl. Could you comment at all at what your code does?

You're so addicted to Perl you can't forget it even in a disco :)

It works with strings too :)

use 5.020;
use warnings;

my %h = ( foo => 1, bar => 2 );

$_ = 'foobar';
s/(foo)/$h{'$1'}/;
say $_;

$_ = 'foobar';
s/(foo)/$h{$1}/;
say $_;

my $foo = 'foo';
say "$h{'$foo'}bar";
[download]

output:

Use of uninitialized value $h{"$1"} in substitution iterator at extr.p
+l line 7.
bar
1bar
Use of uninitialized value $h{"$foo"} in concatenation (.) or string a
+t extr.pl line 15.
bar
[download]

OK I understand now what's happening, thanks! :)

The interpolation is done by translating to a concat which is executed.

(parsing hell)

Cheers Rolf

_{(addicted to the Perl Programming Language and ☆☆☆☆ :)}

update

see update in this post for an explanation of how interpolation works.

Thanks for catching that LanX