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

##</code><code>##

    my @bytes = $address =~ /(\d+)/g;

##</code><code>##

unpack('N', pack('C*', $address =~ /(\d+)/g))