# Schleife für eine Listbox
foreach $file (<*.*>)
{
   if (*Suchanweisung*)  # Ist eine Zahl am Anfang enthalten?
   {                             # oder ein Unterstrich an 3. Stelle?
      #   Führe aus
   }
}