$ cat input
foo



bar
$ perl -ne 'print unless /^$/../^$/' input
foo
bar
$ perl -ne 'print if not /^$/../^$/' input
foo
bar
$ perl -ne 'print if ! /^$/../^$/' input
foo

bar