my @a = $d =~ m/\d+\)\s*(.+)\s*
/g;