$OTHER = qr{[^"'/]};  # Stuff that couldn't possibly begin one of the other alternatives
  
$text =~ s/($DOUBLE|$SINGLE|$OTHER+)|$COMMENT|$COMMENT2/$1/g;




-----------------------------------------------------------------------------
Copyright 1997-2024 Jeffrey Friedl