Datei durchsuchen und bestimmte Teile speichern, sowie ausgeben

[bovo]

Hallo liebe Leute,

Hier ist mein Problem :

Ich habe eine Text Datei, deren Inhalt ist z.B.: "a,2,b,3,aaa,4,*N,20" . Aber ohne Anführingsstriche und alles nur in einer Zeile!
Diese öffne ich und will nur die Inhalte zwischen den Komma's abspeichern, also egal wieviel Zeichen zwischen den Kommas sind.
Ich habe es schon mit :

open(DATEI, "<text.txt") || die " File not found.";
 @tests = <DATEI>;
    while(! eof(DATEI)){
      @tests =~ /(.*),(.*)/;
         $var1 = $1;
         $var2 = $2;
  printf "$1 und $2 \n";

}
    close(DATEI);

versucht. Aber er gibt mir jedes in der Anzahl Zeichen Fälle aus, also im oberen Beispiel sinds 19 Zeichen...also 19 Fälle aber es sollten nur 8 Fälle sein.
Diese Fälle sind ohne Inhalt.

Ich hoffe Ihr könnt mir helfen.

Gruss
    Bovo