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

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

##</code><code>##

perl -e '$/="\0"; print $a=()=<>'