in reply to remove single blank lines?
As a one-liner
perl -lne"length or ++$x and next; $x==1 or printf $/ x $x; $x=0; prin +t" [download]
Caveat: Different quotes for different folks:)