my @b = map s/x//g ? $_ : (), @a;

# Or:

my @b = map tr/x//d ? $_ : (), @a;