type *.pl | perl -e 'print grep /\b__x\b/, <>;'