my @b = grep { s/x//g;  $_ ne ''; } @a;