while (<INPUT>) {
  while ( m!clb_new>([^<]+)</a>!g ) {
    print $1;
  }
}