Select Code to Download

#!/usr/bin/perl -w

...
        # we only need the lowest 8 bits (ipv4 range 0-255)
        return substr $str, length($str) - 8;
}

[ar0n@zendo perl]% perl ip2dec.pl perlmonks.org
3467251275