Regular Expression Perl

print grep(!/x/, a, b, x, d);