% perl -MSocket -e 'print inet_aton shift' 65.0.0.65|hexdump
0000000 0041 4100
0000004
% perl -MSocket -e 'print inet_aton shift' 65.65|hexdump
0000000 0041 4100
0000004

##</code><code>##

% perl -MSocket -le 'print inet_ntoa inet_aton shift' 01.1.1.10
1.1.1.10
% perl -MSocket -le 'print inet_ntoa inet_aton shift' 01.1.1.010
1.1.1.8

##</code><code>##

my $_IP = inet_aton( join '.',
	map { s/^0([1-9]\d*)$/$1/; $_ } # strip leading zeroes
	split( /\./, $original_ip)      # of each octet
);