Ich finde den Code gruselig und absolut unverständlich, kannst Du mal mit einfachen Worten beschreiben, was das Ziel ist?

Da gibt es bestimmt eine schönere Lösung, davon bin ich überzeugt. Vor allem teamfähiger, wartungsfreundlicher und von der Perl-Version unabhängiger.

Viele Grüße.