if($line =~ /(test)/) {
     print $1,"\n";
  }