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