my @C = grep { my $x = $_; not grep { $x =~ /\Q$_/i } @B } @A;