#!perl s//%/e; } #### Bad evalled substitution pattern at file.pl line X #### Perl (version 5) used to determine the value of EXPR inconsistently, sometimes incorrectly using the surrounding context for the determination. Now, the value of EXPR (before being parsed by eval) is always determined in a scalar context. #### #!perl $foo = "ABC"; print "($foo)\n"; $foo =~ s/B/*/e; } print "($foo)\n"; #### (ABC) (A*main::} C)