while ($text =~ /\bclb_new>\b(.*?)\b<\/a>/g) {
    print  $1;     }