# Oeffne Datei zum lesen
open my $fh, '<', $txt_datei or die "Cannot open $txt_datei: $!";

# lese jede Zeile ein und entferne "AB"
while ( my $line = <$fh> ) {
    $line =~ s/AB//g;

    # gib den veränderten String auf der Konsole aus
    # wenn das in eine Datei geschrieben werden soll,
    # muss man das hier ändern
    print $line;
}

# schliesse den Dateihandle
close $fh;