#!/usr/bin/perl -w
# Convert hex to dotted-decimal.
# Each arg produces one line of output.
# Non-hex chars are ignored.

for $h (@ARGV) {
	$sep = '';
	while ($h =~ s/([0-9A-F][0-9A-F])//i) {
		$i = hex($1);
		print $sep . $i;
		$sep = '.';
	}
	print "\n";
}