#!/usr/bin/perl -w

print "Enter Mac: ";

#retrieve input
chomp(my $input = <STDIN>);
my $newmac;

#determine wich format the mac is
if ($input =~ /[A-f0-9]{2}:[A-f0-9]{2}:[A-f0-9]{2}:[A-f0-9]{2}:[A-f0-9]{2}:[A-f0-9]{2}/) {
	
	#convert to cisco mac format
	my @splitmac = split(/:/, $input);
	$newmac = $splitmac[0].$splitmac[1].".".$splitmac[2].$splitmac[3].".".$splitmac[4].$splitmac[5];
	print $newmac;

} elsif ($input =~ /[A-f0-9]{4}\.[A-f0-9]{4}\.[A-f0-9]{4}/) {
	
	#convert to standard mac format
	my @splitmac = split(/\./, $input);
	foreach (@splitmac) {
		
		my @macpieces;
		my $start = 0;

		push (@macpieces, substr($_, $start, 2));
		$start = $start + 2;
		push (@macpieces, substr($_, $start, 2));

		foreach (@macpieces) {
		
			$newmac = $newmac.":".$_;
		}
	
	}

	$newmac = substr($newmac, 1);
	print $newmac;

} else {

	print "Format not recognized";

}