Mit Perl kenne ich überhaupt nicht aus. Ich versuche es wohl besser erstmal in Python, vielleicht kann ich es dann irgendwie übersetzen.