use Socket;print$_,"\n"and map$a.=ord.".",split'',inet_aton$_ and chop$a and print$a,"\n\n"and$a=""for@ARGV;