perl -e 'print grep -f, '