#!/usr/bin/perl -w my $x = 0; while(<DATA>) { $x = 1 if /^\s+$/; next if $x != 1; print; } __DATA__ bad stuff more bad stuff someother bad stuff some good stuff more good stuff more good stuff
In reply to Re: strip until blank line
by steveAZ98
in thread strip until blank line
by the_slycer
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |