my @bytes;
    while ($address =~ /(\d+)/g) {
        push @bytes,$1
    }