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