Verdammt ich dreh noch durch - Profie benötigt

[Torwächter]

Hi,

das Problem ist, die Anzahl der Nummern ist pro Zeile unterschiedlich.
Das Problem ist auch nicht, dass ich die Nummern nicht finde, sondern diese zu überprüfen:

while($mangaprint =~ /(\d)-(\d{3})-(\d{5})-([a-zA-Z0-9])/)
{
   if ($1 ne "x")
   {
      Anweisung();
   }
   else
   {
      Abweisung();
   }
}

Ich muss es irgendwie schaffen, dass alle Nummern (Codes) gesucht werden und für JEDEN eine solche If-Überprüfung gestartet wird.

Greetings
Torwächter