QBlastInfoEnd
-->

##</code><code>##

</form>

##</code><code>##

$re = qr[QBlastInfoEnd \s+ -->
         ([.\n]*) \s*
         </form>]x;
$html =~ $re;
print $1;