$ touch a b e ; perl -le'@f=grep -e, qw(a b c d e f); print "@f"'
a b e