....
    my @array = split(/= '/, $zeile);
    $array[1]=~s/'.*$//;
    my @brray = split(/,/, $array[1]);
....