Select Code to Download

#!/usr/bin/perl

...
    all { $comb =~ /\Q$_/ } split /,/, $subset and # each subset
    print "$comb\n";
  } scalar @str, 4;

c?6,c%4,b%5,a?2
c?6,c%4,b%5,a?1
...
c?6,b%5,a?2,a?1
c?6,b%5,b?2,a?1
c?6,b%5,d%2,a?1