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