--- /dev/null
+#!/usr/bin/perl -i -p
+s{(--\w[-\w]+)}{ $x = $1; $x =~ s/-/\\-/g; $x }eg;
+s/(?<!\\)-(['"\d*])/\\-$1/g;
+s/ -- / \\-\\- /g;
+s#(['"(= /,])-#$1\\-#g;
+s/(\\fB)-/$1\\-/g;
+s/(\[\w)-(\w\])/$1\\-$2/g;
+s{(\\f\(CW.*?\\fP)}{ $x = $1; $x =~ s/(?<!\\)-/\\-/g; $x }eg;
+s/(\.\w+)-/$1\\-/g;