nur so als tip, die sprache heisst Perl und nicht PERL =)
und wenn du möchtest, dass sich jemand mit dem code beschäftigt, wäre es ratsam, den etwas lebarer zu machen, die zeilen sind viel zu lang.