perl -MO=Deparse -e "split('|', 'ab|c');"                   
split(/|/, 'ab|c', 0);
-e syntax OK