Select Code to Download

my @result =
   map
...
       $res
   }
   split m{,}, $str;

my @result =
   map
...
       )
   }
   split m{,}, $str;