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