my $string = 'foo bar baz';

$string =~ /(\w+) (\w+) (\w+)/;

print "1: $1, 2: $2, 3: $3\n";

$string =~ /(\w+) (?:\w+) (\w+)/;

print "1: $1, 2: $2\n";

print "3: is empty\n" unless $3;

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+/;
}

use strict;
use warnings;

my @datei = ('    ');

foreach(@datei){
    # leerzeilen interessieren nicht...
    next if /^$/;
    my $check="false"; #rücksetzen der checkVariabel
    chomp; my @work = split /\s+/; #jede Zeile der Datei ins array "work" laden, je Trennzeichen
    $work[0]=~ s/^\s+//g; #leerzeichen zu beginn einer Zeile löschen
    next if substr ($work[0],0,1) eq '#'; #nächste Zeile der datei wenn das erste Zeichen "#" ist
    next if substr ($work[0],0,1) eq ';';
    next if substr ($work[0],0,1) eq ''; 
}