if(-f "$data_path/ID.txt"){
        open(ID,"$data_path/ID.txt");
        @ID = <ID>;
        close(ID);
        foreach $ID(@ID){
            chomp($ID);
            $ID =~ s/[\n|\r]//g;;
            $IDOK = "NEIN";
            if($FORM{'ID'} eq $ID){
               
 $IDOK = "JA";
               
 last;
            }
        }
        if($IDOK ne "JA"){
            &Show_Error('Your ID is not correct.<br>Ihre ID ist nicht richtig.');
        }
    }

use strict;
use warnings;

my $id = '6543201';

if ( $id !~ /\D/ ) {
    print "die ID besteht nur aus ziffern.\n";
}

if ( $id =~ /01$/ ) {
    print "die ID endet auf 01.\n";
}

if ( length $id >= 6 and length $id <= 8 ) {
    print "die ID hat mehr als 6 und weniger als 8 zeichen.\n";
}

my $id = '6543201';

if ( $id =~ /^[0-9]*01$/ ) {
   print "die ID endet auf 01 und besteht nur aus Ziffern.\n";
}

my $id = '876a43201';

if ( $id =~ /^\d{4,6}01$/ ) {
    print "die ID ist gueltig.\n";
}
else {
    print "die ID ist ungueltig.\n";
}

print "die ID ist " . ( $id =~ /^\d{4,6}01$/ ? "" : "un" ) . "gueltig.\n";

elsif ($action eq 'add_account'){
    # START - Nur Anmelder mit einer passenden ID  mit 01 am Ende sind zur Anmeldung berechtigt
    if ( $ID =~ /^\d{4,6}01$/ ){
     &Add_Account;
  }
    else {
     &Show_Error('Your ID is not correct.<br>Ihre ID ist nicht richtig.');
  }
    # ENDE - Nur Anmelder mit einer ID aus ID.txt sind zur Anmeldung berechtigt
}