do { 
    print "*** FEHLER: Bitte nur Zahlen, getrennt mit Doppelpunkt eingeben\n";
    exit( -1);
} unless $eingabe =~ /^\d+:\d+$/;