% perl -le 'print join".",unpack"C4",pack"N",pop' 3232235777
192.168.1.1

% perl -le 'print unpack"N",pack"C4",split/\./,pop' 192.168.1.1                             
3232235777