$ perl -wlne '$x=split'

##</code><code>##

$ perl -MO=Deparse -Mstrict -wlne '=split'
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: use strict 'refs';
while (defined($_ = <ARGV>)) {
    chomp $_;
}
-e syntax OK