[Script] doppelte ips aus txt löschen

#!/usr/bin/perl

use strict;
use warnings;

use Tie::File;

#pfad zur datei
my $datei = './test.txt';

#so oft darf ein wort vorkommen
my $erlaubte_wiederholungen = 1;

my %oefter_vorkommende_woerter;

# 2 oder mehr vorkommen von Zeichen die keine Ziffer,kein Leerzeichen
# und keine der folgenden Zeichen sind : .,:;!?'"()[]{}
my $wortmuster = qr{([^\d\s\.,:;!?'"\(\)\[\]\{\}]{2,})};

#datei öffnen
open DATEI, '<', $datei
or die 'Konnte die Datei nicht öffnen';

#einlesen und die wörter zählen
while (my $zeile = <DATEI>) {
while($zeile =~ /$wortmuster/g) {
$oefter_vorkommende_woerter{$1}++;
}
}

#datei schließen
close DATEI or warn 'Konnte die Datei nicht schließen.';

#herausfinden welche wörter nicht zu oft vorkommen
my @erlaubte_woerter
= grep { !($oefter_vorkommende_woerter{$_} > $erlaubte_wiederholungen) } keys %oefter_vorkommende_woerter;

# wörter die zu NICHT zu oft vorkommen löschen
delete @oefter_vorkommende_woerter{ @erlaubte_woerter };

# bissi speicher freigeben
undef @erlaubte_woerter;

sub loesche_wort {
#wenn das wort zu oft vorkommt
if (exists $oefter_vorkommende_woerter{$_[0]})
{
#und es noch öfter im text vorkommt als maximal erlaubt ist
if ($oefter_vorkommende_woerter{$_[0]} > $erlaubte_wiederholungen) {
#anzahl der vorkommen um eins runterzählen
$oefter_vorkommende_woerter{$_[0]}--;
#und leeren string zurückgeben
return '';
}
#wenn es nicht mehr zu oft vorkommt,das wort selbst zurückgeben
else{
return $_[0];
}
}
#andernfalls das wort selbst zurückgeben
else {
return $_[0];
}
}

# inhalt der datei an einen array binden
tie my @datei, 'Tie::File', $datei or die 'Konnte die Datei nicht öffnen';

foreach my $zeile (@datei) {
# und die wörter der zeilen ersetzen,.. oder auch nicht ;)
$zeile =~ s/$wortmuster/&loesche_wort($1)/eg;

#die hässlichen leerzeichen-lücken die übrigbleiben
#auf jeweils ein leerzeichen reduzieren
$zeile =~ s/\s{2,}/ /g;
}

#und ende
untie @datei;