$COMMENT = qr{/\*[^*]*\*+(?:[^/*][^*]*\*+)*/}; # regex to match a comment $DOUBLE = qr{"(?:\\.|[^\\"])*"};# Regex to match double-quoted string $text =~ s/($DOUBLE)|$COMMENT/$1/g; ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl