#!/usr/bin/perl
#
# License is current GNU one.
# (c) Light Olli <olli@digger.org.ru>
#
print <<LABEL;

This will translate "monolitic" MAC notation to Cisco notation -
just like in the following sample:

[root\@sky Cisco-related]# ./mac\:monolit2both.pl
1234565235467
1234.5652.3546

So, let\'s start(^C to quit):
LABEL

while(<STDIN>)
{if (/\d/)
 {/([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])/i;
  print "$1$2$3$4.$5$6$7$8.$9$10$11$12\n";
 }
else
 {if (/a-f/i)
  {/([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])([\d\D])/i;
   print "$1$2$3$4.$5$6$7$8.$9$10$11$12\n";
  }
 }
}