Perl code to remove blank lines from a text file

Remove blank lines from a text file with a single line of perl:

perl -ni.bak -e ’s/^\s*$//’ filename

1	perl -ni.bak -e ’s/^\s*$//’ filename

GotITSolutions.org