perl -pe '' *