open(IN, "< myfile.txt");
  my @list = <IN>;
  close IN;
 while ( $_ = shift ( @list ) ) {
 s/Testnok\s*=\s*<\s*//;
     s/\s*>//;
     s/\s*//;
}
#and it's not printing only my interested values