Thank you so much for the excellent suggestions.

I decided to use jeffa 's suggestion because of the simplicity of it.

my %records = $data =~ m{^ACCOUNT NUMBER\s+(\d+)\s+(.*?\d\d/\d\d/\d\d\
+.)}msg;
[download]

Just makes sense to me. Thanks Again!