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