The "s" option might help you, because it would get "." to match "\n".

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

That "\s*" was useless because ".*" will greedily match all spaces, too. If there's more than one "</form>" in your file, watch out because ".*" will match up to the last one. See Death to Dot Star!.