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