$VAL = join '', map { /^\*\s\(?([^\)]+)\)?/ ? $1 : '' } @GET_STRING;