Select Code to Download

while (<QSTNS>)    {
$_ =~ /^(Quiz)(\d)$/;
$max = $2;
}

while (<QSTNS>)    {
($max) =~ /Quiz(\d)/;
}

                $_ =~ /([^,]+),([^,]+),([^,]+),([^,]+)/;
                                push (@A,$1);
                                push (@B,$2);
                                push (@C,$3);
                                push (@D,$4);