Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
my $data = do { local($/); <> };

print qq{$1\n} if ( $data =~ /(Testnok =[^>]+>)/s )

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