if($string !~ /^\d{1,4}\%$|^\d+$|^\*$/){
       print "Ungueltig!";
}