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