Select Code to Download

#!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 =~ s/B/*/e;
}
print "($foo)\n";

(ABC)
(A*main::}
C)