1234567
$Usereingabe = '2%';unless ($Usereingabe =~/^(:?\d{1,3}(?:\%|\d*))|\*$/) { print "Fehler";}else { print "OK";}