$ perl -E 'my @x = qw{A B C D}; @x = grep $_ ne "B", @x; say "@x"'
A C D