use Socket;
my $out = `echo BAABAAXwAACkAAAAAAABLAAAAAAAAAAArBQEKA==|base64 -d`;

print (unpack "H*", $out);
print "\n";
print substr ((unpack "H*", $out), -8);
print "\n";
print inet_ntoa(substr $out, -4);

##</code><code>##

VinsWorldcom@C:\Users\VinsWorldcom\tmp> test.pl
0400010005f00000a40000000000012c0000000000000000ac140428
ac140428
172.20.4.40