%31%30%38%35%33%30%35%31%36%35

##</code><code>##

#!/usr/local/bin/perl -w
use strict;

use URI::Escape;
my $URL = "%31%30%38%35%33%30%35%31%36%35";
print $URL . "\n";
my $int_ip = uri_unescape($URL);
print $int_ip . "\n";
my @octets;
my $register = $int_ip;

while(int($register)) {
  unshift(@octets, $register % 256);
  $register /= 256;
}

for(@octets) {
  print;
  print ".";
}
print "\n";