if ($_ =~ /($suchen_nach:)(.*)(:popuser:)(.*)/) {
    $_ =~ s/$2/$passwd/;
    push (@zeilen, $_);
}
else {
    push (@zeilen,$_);
};