my $mac = 'ff:ff:ff:ff:ff:ff';
if (6 == ($_ = () = $mac =~ /([0-9A-Z]{1,2})(?::|$)/ig) ){ 
    $mac =~ s/([0-9A-Z]{1,2})(?::|$)/ substr "0$1", -2 /ieg;
}