Help for this page

Select Code to Download

Select or download this

  sub remove_trailing_newline {
    $_[0] =~ s/[\r\n]+\Z//;
  }

Select or download this

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