Anyone here know PERL?

[Sadachbia]

So, I really like the Multiple Teleport Marking mod I downloaded many moons ago, that allows me up to 12 Marks and the ability to choose which one I Recall to, but it has a limitation: locations added in other plugins have to be coded into the script. Otherwise, anytime I cast Mark in, say, Tamriel Rebuilt or some new dungeon, it's saved as "Unknown Territory", and I can have only one Unknown Territory mark set at a time.

The author of the mod (which, when you download it, includes plugins for Tribunal, Bloodmoon, and Firemoth Fort—though some parts of Firemoth Fort are still considered "Unknown Territory" for some reason) seems to have anticipated people wanting to extend the mod's changes to other cells, and included a code generator that I assume gets the names of cells from a loaded plugin (such as Tamriel Rebuilt) and codes them into the MultiMark script.

The only problem? I have no knowledge of Perl. (It doesn't help that I can't quite understand what the author is trying to explain; looks like English is not his/her first language.)

Here is the code s/he supplied, under a cut to keep this from being a super-long post (it's not really a spoiler, but that tag is the fastest way to hide/show it):

Spoiler:

begin Teleport_Generate_Scriptcode

; this is NO Morrowind script !!! - it is the Perl script I used to generate main parts of the
; morrowind script code. If you don't know what Perl is see it as magic staff and stop reading.
;
; I includet these script because I tink it could be usefull to add new features into your own
; possition based mods (a.e. building different cell information dialogs). I would recomend,
; or at least prefer, if you would would reference to my mod instead of copying the full MB
; (more than all other Morrowind scripts together) code into your mod. This will keep your
; mod small and compatible with other mods build up on my code.
;
; These script uses 2 input files (extcells.txt, intcells.tx) wich can be generated by 2 simple
; cell exports from the TES-CS. To get it working you have to remove only the ";" from the 1. line.


;#!/usr/bin/perl
;
;# this script generates the morrowind teleport scripts
;
;
;use integer
;
;# read the internal cells input file
;@ucells = ()
;open INPUT, "<intcells.txt"
;while (<INPUT>) {
; @line = split("\t", $_)
; $cellname = (split("\"", $line[1]))[1]
; if ($cellname) {
; push(@ucells, $cellname )
; }
;}
;close INPUT
;
;
;
;# sort it alphabetical
;@cells = sort { lc($a) cmp lc($b) } @ucells
;
;

;open OGET, ">GetCells.mor"
;open OSET, ">SetCells.mor"
;open OINFO, ">InfoCells.mor"
;
;
;
;# and write the GetCells file
;$subindex = 0
;$noelse = 1
;for ($i=0; $cells[$i]; $i++) {}
;for ($i--; $i>=0; $i--) {
; print OGET "elseif( GetPCCell, \"$cells[$i]\" == 1 )\n"
; print OGET "set cell to $i\n"
;}
;print OGET "endif\n"
;
;
;
;# and write the Set/InfoCells files
;for ($i=0; $cells[$i]; $i++) {
; print OSET "elseif( cell == $i )\n"
; print OINFO "elseif( cell == $i )\n"
; print OSET "Player->PositionCell 0 0 0 0 \"$cells[$i]\"\n"
; print OINFO "MessageBox \"Select Mark: %g. $cells[$i]\" num \"Last\" \"OK\" \"Abort\" \"Next\"\n"
;
;}
;print OSET "endif\n"
;print OINFO "endif\n"
;
;
;
;close OGET
;close OSET
;close OINFO
;
;
;
;
;
;
;# generate the external stuff
;@ucells = ()
;open INPUT, "<extcells.txt"
;while (<INPUT>) {
; @line = split("\t", $_)
; $cellname = (split("\"", $line[3]))[1]
; if ($cellname) {
; push(@ucells, $cellname )
; }
; $gridx = (split("\"", $line[1]))[1]
; $gridy = (split("\"", $line[2]))[1]
; if ( $gridx < $gridxl ) { $gridxl = $gridx; }
; if ( $gridx > $gridxr ) { $gridxr = $gridx; }
; if ( $gridy < $gridyl ) { $gridyl = $gridy; }
; if ( $gridy > $gridyr ) { $gridyr = $gridy; }
;}
;close INPUT
;
;# add the regions
;push(@ucells, "Ascadian Isles Region" )
;push(@ucells, "Ashlands Region" )
;push(@ucells, "Azura's Coast Region" )
;push(@ucells, "Bitter Coast Region" )
;push(@ucells, "Grazelands Region" )
;push(@ucells, "Molag Amur Region" )
;push(@ucells, "Red Mountain Region" )
;push(@ucells, "Sheogorad Region" )
;push(@ucells, "West Gash Region" )
;
;
;
;# sort it alphabetical
;@dcells = sort { lc($a) cmp lc($b) } @ucells
;@cells = ()
;
;
;# skip duplicate cell names
;for ($i=0; $dcells[$i]; $i++) {
; if ("$dcells[$i]" eq "$dcells[$i+1]") {
; next;
; }
; push(@cells, $dcells[$i])
;}
;
;
;
;$gridbase=1300
;open OGET, ">GetGrid.mor"
;open OSET, ">SetGrid.mor"
;open OINFO, ">InfoGrid.mor"
;
;
;
;# and write the GetGrid file
;$subindex = 0
;$noelse = 1
;for ($i=0; $cells[$i]; $i++) {}
;for ($i--; $i>=0; $i--) {
; print OGET "elseif( GetPCCell, \"$cells[$i]\" == 1 )\n"
; print OGET "set cell to ".($i+$gridbase)."\n"
;}
;print OGET "endif\n"
;
;
;# and write the InfoGrid file
;for ($i=0; $cells[$i]; $i++) {
; print OINFO "elseif( cell == ".($i+$gridbase)." )\n"
; print OINFO "MessageBox \"Select Mark: %g. $cells[$i]\" num \"Last\" \"OK\" \"Abort\" \"Next\"\n"
;}
;
;
;# make set grid
;for ($i=$gridyl; $i<=$gridyr; $i++) {
; print OSET "if( posy >= ".($i*8192)." )\n"
; print OSET "if( posy < ".(($i+1)*8192)." )\n"
; for ($j=$gridxl; $j<=$gridxr; $j++) {
; if ($j>$gridxl) { print OSET "else"; }
; print OSET "if( posx < ".(($j+1)*8192)." )\n"
; print OSET "Player->Position ".($j*8192+4096)." ".($i*8192+4096)." 0 0\n"
; }
; print OSET "endif\n"
; print OSET "endif\n"
; print OSET "endif\n"
;}
;
;
;
;close OGET
;close OSET
;close OINFO
;


end Teleport_Generate_Scriptcode

I'm hoping that someone with more programming knowledge than I have (which, chances are, is most people on this forum :V ) can give me simple instructions for using the code generator. I'll be happy to do all the work myself, as long as you tell me what's necessary. (Paste something into WordPad and find/replace? Is it all doable from inside the Construction Set?)