Question

How can I gather all lines from STDIN lines until a blank line or EOF, whichever comes first. It would look something like:

 my @lines;

 while(<> ne EOF || <> not blank) {
      chomp;
      push(@lines, $_);
 }

Answer 1

To break on EOF or a blank line:

while ( ($_ = <>) =~ /\S/ ) {
   chomp;
   push @lines, $_;
}

/\S/ tests whether the input contains any non-whitespace.