Select Code to Download

use strict;
my ($a,$b) = (shift, shift);
my @m = $a =~ /([^$b])/ig;
...
else {
    print "can't build '$a' because I don't have '",join("' and '", @m
+),"'\n";
}