# ok # print map { $1 if /^\*\s\(?([^\)]+)\)?/} @GET_STRING;
# not ok # $VAL=map { $1 if /^\*\s\(?([^\)]+)\)?/} @GET_STRING;