my @a = map {/\d+\)\s*(.+)\s*<br>/g} $d;