while ( $d =~ m/\d+\)\s*(.+?)\s*<br>/g ) {