DB<45> p $_
23 45.67 "John Marcus" Surname 23 45.67 "John Marcus" Surname
  DB<46> say $2 while /(?:^|("|\s+))(.*?)\1/g
45.67
John Marcus
Surname
45.67
John Marcus
Surname

  DB<47>