DB<89> p "'$_'"
' 23    45.67 "John Marcus" Surname 23 45.67 "John Marcus" Surname extra '
  DB<90> say "'$3'" while /\s*(\s)("?)(.*?)\2(?=\1)/g
'23'
'45.67'
'John Marcus'
'Surname'
'23'
'45.67'
'John Marcus'
'Surname'
'extra'

  DB<91>