perl -pe1 *