#!/usr/bin/perl -w


sub doit
{
  $_=<STDIN>; 
  @a=split /\./,$_; 
  $s .= unpack ("H*", pack("C",$_)) foreach @a; 
  for ($i=8;$i>0;$i--)
  {
    print uc(substr($s,0,$i))."\n";
  }
}

sub usage
{
  print<<EOF;
Usage:

echo "192.168.0.1" | $0

EOF
exit -1;
}

$rin = '';
vec($rin,fileno(STDIN),1) = 1;
(undef,$timeleft) = select($rin, undef, undef, 0.01);
if ($timeleft eq 0)
{
  usage();
}

doit();