Help for this page
@lines = grep is_empty($_), @lines;
sub is_empty { my $line = shift; $line eq '' }