Perl scrip project for BSnoop.

I have a SED script that makes changes to a LaTeX file that I would like to get under a better framework so I can extend and manage it better. The script does simple things like this one to change all spaces and TABS to one space only: s/[[:space:]]\+/ /g and this ones to change the quotation marks from Unicode to ASCII. s/’/'/g s/‘/`/g s/”/''/g s/“/``/g these to eliminate spaces at the start and end of a quotation: s/` /`/g s/ '/'/g these to eliminate spaces before punctuation marks: s/ ,/,/g s/ \./\./g s/ !/!/g s/ ?/?/g s/ :/:/g s/ ;/;/g these changes some ... to their standard name: \ldots s/\.\.\. /\\ldots /g s/\. \. \. /\\ldots /g these change a few brackets from one type to another: s/\\bigl(/\\left(/g s/\\bigr)/\\right)/g s/\\Bigl(/\\left(/g s/\\Bigr)/\\right)/g s/\\bigl\[/\\left\[/g s/\\bigr\]/\\right\]/g s/\\Bigl\[/\\left\[/g s/\\Bigr\]/\\right\]/g and then here is where the MEAT is!!! I want to change every occurrence of: X \ldots Y X \dots Y X\ldotsY X\dotsY that is, \ldots or \dots surrounded by X and Y with or without space to: X \cdots Y where X and/or Y could be anything from this list: + - = < > ) ( ] [ } { \frac \cdot \leq \geq \left( \right) \left[ \right] \left\{ \right\} \times etc, etc, etc. I (partially) achieve this with this bunch of separate REGEX but it is becoming completely unmanageable... so I need it on better framework so I can add/delete commands to the list above. s/\\cdot \\ldots \\cdot/\\cdot \\cdots \\cdot/g s/\\cdot \\dots \\cdot/\\cdot \\cdots \\cdot/g s/+ \\ldots +/+ \\cdots +/g s/+ \\dots +/+ \\cdots +/g s/- \\ldots -/- \\cdots -/g s/- \\dots -/- \\cdots -/g s/+ \\ldots -/+ \\cdots -/g s/+ \\dots -/+ \\cdots -/g s/- \\ldots +/- \\cdots +/g s/- \\dots +/- \\cdots +/g s/) \\ldots (/) \\cdots (/g s/) \\dots (/) \\cdots (/g s/\\ldots \\frac/\\cdots \\frac/g s/\\dots \\frac/\\cdots \\frac/g s/\\cdot\\ldots\\cdot/\\cdot \\cdots \\cdot/g s/\\cdot\\dots\\cdot/\\cdot \\cdots \\cdot/g s/+\\ldots+/+ \\cdots +/g s/+\\dots+/+ \\cdots +/g s/-\\ldots-/- \\cdots -/g s/-\\dots-/- \\cdots -/g s/+\\ldots-/+ \\cdots -/g s/+\\dots-/+ \\cdots -/g s/-\\ldots+/- \\cdots +/g s/-\\dots+/- \\cdots +/g s/)\\ldots(/) \\cdots (/g s/)\\dots(/) \\cdots (/g s/\\ldots\\frac/\\cdots \\frac/g s/\\dots\\frac/\\cdots \\frac/g So I want to place this change in a Perl script in a way I can easily manage the list of commands I can place in the X and Y list. I'll provide a test-file for the script.