my $id = '876a43201';

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