my @results = split /[\r\n]{2,}/, do { local $/; <STDIN> };