$prog =~ s{/\*[^*]*\*+(?:[^/*][^*]*\*+)*/}{}g; # remove C comments (and more!) ----------------------------------------------------------------------------- Copyright 1997-2025 Jeffrey Friedl