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