my @A = grep m/A/ && !defined($_ = undef), @foo ;