Considering that "Name1", "Name2", and "Name3" are all different, how is it repeated? I do see repeated patterns here: 'L*Name', and 'D*Place' to name a few.

Need Name1, Name2, Name3 in a array

Uhm, @array = qw[Name1 Name2 Name3]; answers that question. But I doubt that's the answer you are looking at. Getting a useful answer (whether it's an answer you work out for yourself, or ask someone else about) starts with a clear description of the problem, not a vague, broad description, and a single, contradicting, example.

Need to remove *L*Name1 pattern

s/\Q*L*Name1//g;