use FileHandle;

$fh = new FileHandle;
$fh->open("<c:\\test.txt") || die ("Could not open file!!!!. $!");

until ($fh->eof) {
  $tmp = $fh->getline;

  # If $tmp starts with any number followed by a period (it means that the part after the period is the question portion), do FUNCTION1

  # If $tmp starts with a "letter" followed by a period (it means that this is one of the choices), do FUNCTION2
}

$fh->close;