for ($_ = <DATA>; defined $_; $_ = <DATA>)