For the sake of simplicity, why not do the following?

while (<DATA>) {
    print if m/bar/ && !m/foo/;
}

__DATA__
some stuff then foo then bar then more stuff
oo then bar then more stuff
some stuff then foo then bar then more stuff
some stuff then bar then more stuff
[download]