if ( m/(\r\n|\n\r|\r|\n)$1/ ) {
    # two newlines in a row!
  }