my $re =  qr[<!--QBlastInfoBegin \s+
  RID = ([\d-]+) \s+
  RTOE = (\d+) \s+
QBlastInfoEnd  \s+
-->]x;

my( $RID, $RTOE ) = $html =~ $re;