open(FILE, "<myfile.txt");

while(<FILE>) {
   if(/Testnok/ .. /\>/) {
       print "$_";
   }
}
close(FILE);