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