skrive og læse i samme fil

Jeg har dette script:

#!/usr/bin/perl
$dom = "testdk";
$password = "123";
open(CONFIG,">/home/wp-config.php") || die ("Could not open file <br> $!");
while($text = <CONFIG>)
{
    $read .= $text;
}
$read =~ s/%%db_name%%/$dom/;
$read =~ s/%%username%%/$dom/;
$read =~ s/%%password%%/$password/;
print CONFIG $read;
close(CONFIG);

Men den skriver ikke indholdet tilbage i filen, hvor gør den ikke det.

Det virker fint med at skrive ud på skærmen