<perl>
get undef,"<<Datenbankname>>","Merker";     //Hole alle Datensätze
while(get_next("Merker")){                  //Mach dies mit allen Datensätzen
next if $_get{"Kälber"} eq "";              //Wenn nichts drin, dann nächsten Datensatz
$Kalb = $_get{"Kälber"};                    
$Kalb  =~ s/, /\n/g;                       //Tausche ", " gegen "Return"
mod "Id==$_id",["Kälber",$Kalb],"<<Datenbankname>>";  //Ändere Datensatz in DB
}
</perl>