while (<$fh>)
  {
   print if (/Sbjct/){
  }