Help for this page

Select Code to Download

Select or download this

  DB<178> open $fh,"<",\"1\0 2\0 3"

  DB<179> print scalar do {local $/="\0";  () = <$fh> }
3

Select or download this
```
perl -e '$/="\0"; print $a=()=<>'
```