Select Code to Download

@s = ("foo bar baz") x 4;
$bar = "rab";
...

for $i (0..3)
{ print "$i -> '$s[$i]'\n"; }

0 -> 'foo eek baz'
1 -> 'foo rab{1} baz'
2 -> 'foo rab[1] baz'
3 -> 'foo oof baz'

4 -> 'foo rab\[1] baz'

$s[4] =~ s{(bar)} [$bar\E\[1\]];

4 -> 'foo rab[1] baz'