Help for this page
Select Code to Download
Select
or
download this
my @b = grep { s/x//g; $_ ne ''; } @a;