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