Select Code to Download

my $VAL = (grep { defined } map { /^\*\s\(?([^\)]+)\)?/ ? $1 : () } @G
+ET_STRING)[0];

>perl -wMstrict -le
"my @GET_STRING =
...
 print qq{'$first'};
"
'yes'