@lines = grep is_empty($_), @lines;

##</code><code>##

sub is_empty {
  my $line = shift;
  $line eq ''
}