$ perl -MO=Deparse -0001 -e ''
-e syntax OK
BEGIN { $/ = "\001"; $\ = undef; }
();