$DOUBLE = qr{"[^\\"]*(?:\\.[^\\"]*)*"};
$SINGLE = qr{'[^'\\]*(?:\\.[^'\\]*)*'};




-----------------------------------------------------------------------------
Copyright 1997-2026 Jeffrey Friedl