perl -i.bak -nle"while ($empty) { --$empty; print '' } if (length()) { print } else { ++$empty }" filename