There are no empty lines in your input.

Ah, I see now. Eliminating empty lines was not a requirement, although the OP wasn't clear about that, since the convoluted sed | awk construct in fact did remove all empty lines, even those wanted. The perl script doesn't, however. The sed | awk was there for illustration purposes alone.

The l script is meant to include empty lines of input. Sorry for the unclear spec.