$brb=0;
while($brb==0){
print "zahl eingeben \n";
chomp($zahl=<STDIN>);
if ($zahl=~/\b[0-9]+\.[0-9]\b/;){
print "richtig\n";
$brb=1;
}
else{
print "falsch!!!\n";
}}