perl -lpe'