if ( $name =~ /^I\d+$/ && $values =~ /[A-Za-z\s_\'\-\.]+/ ) { #I\d+                                     
            print "<tr>\n<td><input type='hidden' name=\"" . $name . "\" value=\"" . $values . "\"><span class='b'>" . $name . "</span> &nbsp; " . $values . "<\/td>\n";     # start new row
            next;

      } elsif ( $values =~ /^[\d]+$/ && $name =~ /^Q\d+$/ ) {    # Q0,Q1
            print "<td style='text-align:center;'><input type='hidden' name=\"" . $name . "\" value=\"" . $values . "\">Quant: <span class='b'>" . $values . "</span></td>\n";
            next;
      # plus 4 more for P\d+ and IT\d+ cases and another pair of special cases