#!/usr/bin/perl

use strict;
use warnings;

my @files = </home/user/Maildir/cur/*>;
for (@files){
    open(IN, $_);
    while (<IN>) {
        last if /The mail system/;
    }
    while (<IN>) {
        if (m#/domain.com$#) {
            print "\n";
            last;
        }
        print;
    }
    close IN;
}