-------------------------------------------------------
RDN[ 01 ] : checking my test    = 1
RDN[ 1 ] : allowing data       = 11030101
RDN[ 2 ] : retrieving data = 1

	FOR CLASS main
	WITH NAME TYPE 	help  = < 1 >
	Testnok = 	<
	    [0]
	        [1]
	            [0]
	                [[0]]
	            [[1]]
	        [[0]]
	>

;
--------------------------------------------------------------

##</code><code>##

[0]
	        [1]
	            [0]
	                [[0]]
	            [[1]]
	        [[0]]


##</code><code>##

 
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