while ( <DATA> ) {
    $_ = reverse;
    my @fld;
    unshift @fld, scalar reverse $1 while s/(.+?)\s*=\s*\S+\s*//;
    print join( ',', @fld ), "\n";
    }