#! perl -nlw
if(/^\s*$/){
    $blank++;
} else {
    print "" for(1..$blank);
    print;
    $blank=0;
}
