perl -E"-s or say for grep -f,glob '*'"