Verdammt ich dreh noch durch - Profie benötigt

[Torwächter]

Hallo,

also, ich habe eine Zeile mit Text:
$text=qq~aaaaaaaaaaaaaaaaaCODE1aaaaaaaaaaaaaCODE2aaaaaaaaaCODE3aaaaaa~;

wie kann ich in dieser Zeile die Codes (alle) durch BBBBB ersetzen:
$text=~s/(\d)-(\d{3})-(\d{5})-([a-zA-Z0-9])/BBBBB/g;
Funzt.

ABER

ich kann diesen Befehl nicht benutzen, da ich bei jedem Code (mehr als nur 3) eine if Anweisung durchführen muss:
$text=~s/(\d)-(\d{3})-(\d{5})-([a-zA-Z0-9])/if($4 ne "X"){...}/g;
Funzt natürlich so nicht.

D.H.

Ich muss also irgendeine Schleife benutzen, die diese Zeile nach dem Suchmuster (\d)-(\d{3})-(\d{5})-([a-zA-Z0-9]) durchsucht und wenn eins gefunden ein If Befehlt ausführt UND DANN WEITERSUCHT.

Greetings
Torwächter

PS: sorry für die letzte Formulierung, ich hab schon beinahe geschlafen :)