$/ = "\n\n";
while (<DATA>) {
chomp;
my $line = $_;

$line =~/(ACCOUNT-\d{5}).*Remedy Case data.*(ClosedDate.*)\\.*(CreatedDate.*)\\/;

my $account = $1;
my $closed = $2;
my $created = $3;
.
.
.
}