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