locate -br '^perl$' | perl -nle'print if -x and not -d'