if($_ =~ /Sbjct:\s*(\d+)\D+(\d+)*$/ .. /\n\n\n\AQuery\=/) 

##</code><code>##

my $subject;
while ( <> ) {
    $subject = $_ if /^Sbjct:\s*\d+\D+\d+$/;
    print $subject if /^Query=/;
    }