perl -e 'print $1 if ( do{local $/; <>} =~ /(Testnok =[^>]+>)/s)' data.txt