[perl] file durchsuchen und bestimmtes wort ersetzen

[alie]

Hallo,
ich hab folgendes problem.
ich muss eine shadow file durchsuchen, die zeile bei dem user = user ist herausfiltern, und dessen passwort ersetzen.
zuerst hab ichs mal so gemacht, damit ich überhaupt die line bekomm wo user und passwort drin stehn:

#!/usr/bin/perl

$file="shadow.test";

open(FILE, "$file");

while(<FILE>) {
   chomp;
   next unless lenght;
   my ($var, $value) = split(":", $_);
   $arr{$var} = $value;
}
($pass, $dummy) = split(":",$arr{$user});
print "$pass\n";

das gibt mir das passwort vom gewuenschten user aus.
jetzt sollte ich aber noch dieses in der file durch ein neues ersetzen.

weiß jemand wie man das machen könnte ?

mfg

 

[alie]

.

habs schon gelöst ...
danke