A small JASS optimization script

I attached a small JASS optimization script I made in Perl for AMAI. It might have some value for others too.
What it does is optimize some scripts in context of a library script. Like AI scripts with a custom common.ai or map scripts in context of a custom Blizzard.j (as long as ExecuteFunc is not used).
It removes whitespace and comments, inlines constants (global variables that are marked as constant), removes unused functions and globals and then shortens the names of variables and functions.

nice job, perl can do this? lol

Perl is very powerful when you are working with text. I'd say it would be a lot harder to write such a script with another programming language.