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