öffen ersetzen speichern

[Siechfred]

open (DAT, "<dat.txt");

Fehlerbehandlung? File Locking?

while (<DAT>) {
if ($_ =~ m/Hallo/) {
open (WRITE, ">>dat.txt");

Das dürfte in die Hose gehen.

$_ =~ s/Hallo/Ciao/;

Wegschreiben?

Für Dein Vorhaben würde ich Tie::File nehmen:

use Tie::File;  
  
my $file = 'dat.txt';  
tie my @lines, 'Tie::File', $file or die "Unable to tie $file: $!";  
for(@lines) {  
  s/Hallo/Ciao/g;  
}  
untie @lines;

Siechfred