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