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