By the way,

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

can be written as

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

so you end up with

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