@arr = qw/ ""fa la la ""la /;
@foo_d = grep(/""/, @arr);
print $_,$/ for @foo_d;
__END__
""fa
""la