$ echo 'foo
> bar
> foobar
> baz
> foobar'  | perl -ne 'print unless /^bar/;'
foo
foobar
baz
foobar