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