#!/usr/bin/env perl

use strict;
use warnings;

my @message;

while (<DATA>)
{
    push @message, $_;
    if ( /quarantine/ ) {  # this is the last expected line of each message
        local $_ = join( "", @message );
        local $\ = "\n";
        print if ( /<jay@/i );
        @message = ();
    }
}