Select Code to Download

    s/x//; # this could be written more efficient as tr[x][]d;

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

...

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