my @records = map { $_ . ' *' } split /*/, join '', @messy_array;
chop $records[-1];