open(INPUT, "ml_test.html");
while (<INPUT>)        {
	$text .= $_;   }
close(INPUT);
if ($text =~ /\bclb_new>\b(.*?)\b<\/a>/g) {
	print  $1;     }

##</code><code>##

...target=clb_new>DATAINEED</a></font>...
...target=clb_new>MOREDATAINEED</a></font>...