Select Code to Download

use strict;
use warnings;
...
        search ($remainder, [grep {$part ne $_} @$parts], [@$used, $pa
+rt]);
    }
}

cow-boy-cat-dog
cowboy-cat-dog