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