Select Code to Download

use strict;
use warnings;
...
my @parts = qw(cow cowboy boy cat at do dog);

search ($target, [@parts], []);

sub search {
    my ($target, $parts, $used) = @_;

    unless (length $target) {
        print join ("-", @$used), "\n";
        return;
    }

    for my $part (@$parts) {

        next unless 0 == index $target, $part;

        my $remainder = substr $target, length $part;

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