# 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;

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

# lese jede Zeile
while ( my $line = <$fh> ) {

    # wenn es die erste Zeile ist
    if ( $. == 1 ) {

        # fuege ein "#" an Stelle vier ein
        substr $line, 3, 0, '#';
        print $line;
    }
}

# schliesse den Dateihandle
close $fh;