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