#!/usr/bin/perl

use warnings;
use strict;

my $txt_datei_in  = "";
my $txt_datei_out = "";

# Oeffne Datei zum lesen
open my $fhIn,  '<', $txt_datei_in  or die "Cannot open $txt_datei_in:  $!";
# Oeffne Datei zum schreiben
open my $fhOut, '>', $txt_datei_out or die "Cannot open $txt_datei_out: $!";

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

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

# schliesse den Dateihandle + auch immer auf mögliche Fehler abfragen!!!
close $fhIn  or die $!;
close $fhOut or die $!;