perl -i.bak -ne "print if /./" filename

##</code><code>##

perl -i.bak -ne "chomp, print if /./" filename