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