my $member = "dump_$key";
        my $name = "name_$key";
        
        $name = $self->can($name) ? $self->$name () . ' ' : '';
        ...
        if ($self->can($member)) {
            $self->$member ($pos, $len);

##</code><code>##

my $str = '001100010011001100110001';
my $value = pack ('B*', $str);
print $value;