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