Re: Speed up perl code

[Anonymous Monk]

You're wrote  decode( 'cp1252' entirely too many times (131 versus 24 unique, that is 107 duplicates )

Multiply that by the number of iterations through the 42 odd loops, and no wonder its slow

Also, there are way too many levels of indentation -- longest is 13 deep -- you should turn each for loop into a function call , really