my @a = ();
while ( $d =~ m/\d+\)\s*(.+)\s*<br>/g ) {
  push( @a, $1 );
}