if ( $plzsuche =~ m{\D} ) {
  # $plzsuche enthaelt eine Nichtziffer => Fehler
  die "Fehler: PLZ Suche ist nicht gültig (nur ganze Zahlen erlaubt): $plzsuche\n";
}
# So könnte es dann weitergehen ...
elsif ( $s1 <= $plzsuche && $s3 >= $plzsuche ){
  # ...
}