@arr = ( "", "", "Text 1", undef, "Text 2", undef, "" );
@arr = grep { defined($_) && $_ } @arr;