set string "class(amber#good)"regexp {\(([^()#]+)} $string - matchputs $match
Standard input is empty
amber
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!