split /PATTERN/,EXPR,LIMIT
       split /PATTERN/,EXPR
       split /PATTERN/
       split

##</code><code>##

perl -MO=Deparse -ne 'split "foo"'
LINE: while (defined($_ = <ARGV>)) {
    split(/foo/, $_, 0);
}
-e syntax OK

##</code><code>##

$ perl -MO=Concise -pe '$_=split "foo"' >1.txt
-e syntax OK
$ perl -MO=Concise -pe '$_=split /foo/' >2.txt
-e syntax OK
$ diff [12].txt
20c20
< 6                          </> pushre(/"foo"/) s*/64 ->7
---
> 6                          </> pushre(/"foo"/) s/64 ->7

##</code><code>##

$ perl -le 'print "bar\n" =~ /^bar$/ ? "ok" : "not ok"'
ok