#! /usr/bin/env perl
# $Id: $
# (c) 2010 Jeroen van Nieuwenhuizen

use strict ;
use warnings ;

my $ipv6=$ARGV[0] ;

my @iparr=split(/:/,$ipv6) ;
my $begin=1 ;

foreach my $item (reverse @iparr) {
	$item="0".$item while (length($item) < 4) ;
	print "." unless($begin);
	$begin=0 ;
	print join(".",chop($item),chop($item),chop($item),chop($item)) ;
}
print "\n" ;