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";
}