$text =~ s/($DOUBLE)|$COMMENT/defined($1) ? $1 : ""/ge; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl