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