$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