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