##
while(<>) { print ; }
##
##
$ perl -MO=Deparse -pe '1'
LINE: while (defined($_ = )) {
'???';
}
continue {
print $_;
}
-e syntax OK
##
##
split;
##
##
perl -01512 -e
##
##
$ perl -01512 -e 1
Unrecognized switch: -2 (-h will show valid options).
$