#!/usr/bin/perl

use strict ;
use warnings ;

while( my $mac = <DATA> ) {
  # \n vom Zeilenende entfernen
  chomp $mac ;

  printf "Alt: %s\n" , $mac ;

  # Alle alten Trenner entfernen.
  $mac =~ s/-//g ;

  # Alle zwei Zeichen (nicht -) ein - einfügen,
  # falls noch weitere Zeichen folgen (also kein - nach dem letzten Paar.)
  $mac =~ s/([^-]{2})(?=.)/$1-/g ; 

  printf "Neu: %s\n\n" , $mac ;
}

__DATA__
0-1e-b-2b-54-f3
01-0d-9d-cf-b6-25
0-11-32-8-6f-4b

Alt: 0-1e-b-2b-54-f3
Neu: 01-eb-2b-54-f3

Alt: 01-0d-9d-cf-b6-25
Neu: 01-0d-9d-cf-b6-25

Alt: 0-11-32-8-6f-4b
Neu: 01-13-28-6f-4b