my $ports = '0x4000040000000200800000000000000000000002'
            .'0000000000c004000108008000000000000000000'
            .'00000000000000000000000000000000000000000'
            .'00000000000000000000000000000000000000000'
            .'00000000000000000000000000000000000000000'
            .'00000000000000000000000000000000000000000'
            .'00000000000';
my $basePort = 0;
my @ports;

$ports = substr $ports, 2;

while ($ports) {
    my $octet = hex substr $ports, 0, 2, '';
    my $index = 0;
    
    while ($octet) {
        next unless $octet & 0x80;
        push @ports, $basePort + $index;
    } continue {
        ++$index;
        $octet = ($octet << 1) & 0xff;
    }
    
    $basePort += 8;
}

print join ',', @ports;