#!/usr/bin/perl
#
# License is current GNU one.
# (c) Light Olli <olli@digger.org.ru>
#
print "$0:\nTranslates MACs from common notation to CISCO notation.\n";
print "Enter common notation of MAC address (xx:xx:xx:xx:xx:xx)\n";
while(<STDIN>)
{ next  unless 
  /([a-f\d]?[a-f\d]):([a-f\d]?[a-f\d]):([a-f\d]?[a-f\d]):([a-f\d]?[a-f\d]):([a-f\d]?[a-f\d]):([a-f\d]?[a-f\d])/i;
  print "$1$2.$3$4.$5$6\n";
}