Select Code to Download

use List::MoreUtils qw(any);

@diff = map { my $x = $_;
              (any { $x eq $_ } @badstuff) ? () : $x;
            } @badstuff;