{
  local $/ = "";  # two or more newlines in a row
  @stanzas = <POEM>;
}

# or

{
  local $/ = "\n\n";  # two newlines in a row
  @chunks = <POEM>;  # you might not get the same results
}