perl -pe'' *