Select Code to Download

#! perl -slw
use strict;
...
  RTOE = 7
QBlastInfoEnd
-->

my $re =  qr[
    <!--QBlastInfoBegin           \s+
...
    QBlastInfoEnd                 \s+
    -->
]x;