http://qs321.pair.com?node_id=11136455

almr has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks

it's never been quite clear to me how to get full -E behavior with a stdin script. Let's call perl from a shell script (this the reason for not wanting -E, and some other choices):

perl -Mv5.12 -wn -- - /etc/passwd <<'EOF' next unless / ([^:]*) : [^:]* : ([0-9]+) /x; my ($w, $n) = (uc $1, 5000 + $2); say qq{log=$w id=$n} EOF

As I understand it, -E turns on optionals (e.g. say, <<>>), but also some behaviors (e.g. use strict, Unicode handling). Now the unpalatable choices become

Are there any other options to get -E behavior without -E?