#!/usr/bin/perl -p

s/\b000000000000000000000000([0-9a-fA-F]{8})\b/ip_addr_hex_to_dec($1)/eg;
s/\b0000000000000000FFFF0000([0-9a-fA-F]{8})\b/ip_addr_hex_to_dec($1)/eg;
s/\b([0-9a-fA-F]{8})\b/ip_addr_hex_to_dec($1)/eg;
s/\b([0-9a-fA-F]{4})\b/ip_port_hex_to_dec($1)/eg;

sub ip_addr_hex_to_dec {
	my ($hex) = @_;
	my $dec = "";
	while ($hex =~ s/(..)//) {
		$dec = ".$dec" if $dec ne "";
		$dec = hex($1).$dec;
	}
	return $dec;
}

sub ip_port_hex_to_dec {
	my ($hex) = @_;
	return hex($hex);
}