Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
    
    ...
    while (<DATA>) {
        print if /$start_re/ .. /$end_re/ && next;
    }
    
  2. or download this
    __DATA__
    *** Block 1
    ...
    important_content_section2
    important_content_section3
    unwanted_line3=
    
  3. or download this
    my_variable=important_content_section1
    important_content_section2
    ...
    my_variable=important_content_section1
    important_content_section2
    important_content_section3