Select Code to Download

sub unbracket {
   for (my $s = @_ ? $_[0] : $_) {
...

# Or just
# my %hash = map unbracket, split /, |=/, $_;