perl -ple$\\=1^chop