Select Code to Download

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

my $subject;
while ( <> ) {
...
    print $subject if /^Query=/;
    }