Help for this page
QBlastInfoEnd -->
</form>
$re = qr[QBlastInfoEnd \s+ --> ([.\n]*) \s* </form>]x; $html =~ $re; print $1;