$re = qr[QBlastInfoEnd \s+ -->
         (.*)
         </form>]xs;