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