undef $/;

$a = <E>;