Help for this page
Select Code to Download
Select
or
download this
while ($text =~ /\bclb_new>\b(.*?)\b<\/a>/g) { print $1; }