Help for this page
perl -p -0 -e 's/(?<!\n)\n\n(?!\n)/\n/g;' singleblank.txt
#!/usr/bin/perl -w use strict; ... none one
none one ... none one