The biggest problem seems to be the fact that you are only printing the first match ($1). If you replace 'if' with 'while' you will get closer to what you want.

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

Impossible Robot