#see https://www.perlmonks.org/?node_id=525392

while (<DATA>)
{
    print if (/^Success\|Filter passed/ ... /^\s*$/);    
}