or download this
DB<31> (my $x="{{abc}}") =~ s/{{/[[/g; print $x
Unescaped left brace in regex is deprecated, passed through in regex;
+marked by <-- HERE in m/{{ <-- HERE / at (eval 40)[c:/Perl_524/lib/pe
+rl5db.pl:737] line 2.
+ at (eval 40)[c:/Perl_524/lib/perl5db
+.pl:737] line 2. eval 'no strict; (
+$@, $!, $^E, $,, $/, $\\, $^W) = @DB::saved;package main; $^D = $^D |
+ $DB::db_stop; (my
+$x="{{abc}}") =~ s/{{/[[/g; print $x;
+ ' called at c:/Perl_524/lib/perl5db.pl line 737
+ DB::eval called at c:/Perl_524/lib/perl5db.
+pl line 3131 DB::DB called at -e line 1
+ [[abc}}
+
+
DB<32> (my $x="{{abc}}") =~ s/{\{/[[/g; print $x
+ [[abc}}