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

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

[root\@sky Cisco-related]# ./mac\:monolit2both.pl
1234565235467
12:34:56:52:35:46

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";
  }
 }
}