Zeile Splitten und in Variable packen

[Bio]

Sup!

open(DT,"<Datei");
while(<DT>) {

$_ =~ /.*?;(.*?);.*/;

print $1."\n";

}

Könnte auch klappen. Hab's aber nicht getestet. Die Idee ist, mit dem RegExp genau die Sachen zwischen dem ersten und zweiten ; rauszufiltern und in $1 speichern zu lassen.

Gruesse,

Bio