print $/, <-- zOd -->;