Help for this page

Select Code to Download


  1. or download this
    $VAL = join '', map { /^\*\s\(?([^\)]+)\)?/ ? $1 : '' } @GET_STRING;
  2. or download this
    >perl -wMstrict -le
"my @GET_STRING =
...
 print qq{'$VAL'};
"
'yesyupya'