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