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