perl -pe1