my $com = "";
        if ( $fil eq "" ) { $com = ""; }
        elsif ( $fmode eq "-" && $fil ne "" ) { $com = "next if ( /$fil/ );"; }
        elsif ( $fmode eq "-" && $fil ne "" ) { $com = "next if ( ! /$fil/ );"; }

SCHLEIFE ANFANG
    AUSFÜHREN $com;
SCHLEIFE ENDE