$DOUBLE = qr{"[^\\"]*(?:\\.[^\\"]*)*"}; $SINGLE = qr{'[^'\\]*(?:\\.[^'\\]*)*'}; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl