#!/usr/bin/env perl
# enumname -- convert phone numbers to E164.ARPA domain names

print join ".", reverse "E164.ARPA\n", grep /\d/, split "" for @ARGV;
