Help for this page

Select Code to Download


  1. or download this
    my ($val) = map { /^\*\s\(?([^\)]+)\)?/ ? $1 : () } @GET_STRING;