my ($val) = map { /^\*\s\(?([^\)]+)\)?/} @GET_STRING;