/^$/ or print for @strings;

##</code><code>##

for my $s (@strings)
{
    print $s unless $s =~ /^$/;
}