hi,

am besten wäre natürlich ein komplettes (mimimales) skript, was den fehler reproduziert. erstmal wäre aber wichtig, dass du schreibst, was "geht es nicht mehr" bedeutet. wenn das skript stirbt, poste die fehlermeldung. wenn nicht, was passiert dann?
generell kann man immer recht einfach debuggen, indem man ein paar print-statements ins programm schreibt, um zu schauen, an welche stelle perl kommt und an welche nicht. also z.b. in zeile 18:

dann siehst du im errorlog, was perl findet und was nicht.

ich würde aber ganz abgesehen davon empfehlen, z.b. XML::Parser einzusetzen, denn xml mit regexes parsen macht man einfach nicht...