unless( $input =~ m/\d{1,3}\%/ ){
  # fehler, eingabe nicht gültig
}