use strict;
while(<DATA>) {
    my @results = m/\[(\d+),'[^']+','([^']+)'/g;
    local $, = ',';
    print @results;
}
__DATA__
window.Grid1 = new ComponentArt_Grid('Grid1');
Grid1.Data = [[33,'DOR00393','ActiveState ActivePerl 5.8.8 Build 819',0,'Software','No','Yes','No','Yes','Yes','No','No','No','No','No'],[493,'STP00A82','ActiveState Perl Dev DOR Modules 1.0',0,'Software','No','Yes','No','Yes','No','No','No','No','No','No'],[34,'DOR00394','ActiveState Perl Dev Kit 6.0 Pro Pack',0,'Software','No','No','No','Yes','Yes','No','No','No','No','No'],[764,'','AD Group Request:  Rev Reports - Modify Access',1,'General','No','Yes','Yes','Yes','Yes','Yes','No','No','No','No'],[81,'STP0028A','Adesso Cyber Pad Software Suite 3.13',0,'Software','No','Yes','No','Yes','Yes','No','No','No','No','No'],[371,'STP009FB','Adesso Cyberpad 3.14