my @records = map { $_ . ' *' } split /\*/, join '', @messy_array;