#!/usr/bin/perl
for(@ARGV){printf "%08X\n",((($1<<8)+$2<<8)+$3<<8)+$4 if /(\d+)\.(\d+)\.(\d+)\.(\d+)/}