perl -p -e 'BEGIN { undef $/ } s/\n{2,}/\n/g' #### perl -p0777e 's/\n{2,}/\n/g'