foreach (@datei) {
   next if /
      ^        # vom Anfang der Zeile
      \s*      # 0 oder alle Whitespaces
      (        # Anfang des Captures
      ?:       # es soll nicht gecaptured werden
      [#;]     # # oder ;
      |        # ODER
      $        # das Ende der Zeile
      )        # Ende des Captures
   /x;         # beachte keine Whitespaces
   chomp; my @work = split /\s+/;
}