Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl -0777 -p
    # -0777, idiom for "slurp" mode.
    
    ...
    s/((?:\r?\n){2})(?:\r?\n)+/$1/g;
    
    # -p print at the end of each implicit loop.