I'm too lazy to look at that huge slab of perl code but i can give you a tip for the css: in stead of writing

.r1{
  border: 1px dotted red;
}
.r2{
  border: 1px dotted red;
}
[download]

You can write:

.r1,.r2{
  border: 1px dotted red;
}
[download]

That will shave some bytes off the css ;-)