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