my @lines= split (/(?:\r?\n){2,}/, do { local $/; <INPUT>});
# lines already chomped, since delimiter not included.