while (<>) {
  print if /\S/;
}

##</code><code>##

perl -i.bak -n -e "print if /\S/" filename