Oft sind Eingaben von Anwendern mit führenden oder nachfolgenden Leerzeichen versehen.
Dies ist fast immer unnötig und kann bei Suche und Abgleich zu Problemen führen.
Wenn nicht schon bei der Verarbeitung der Eingabe, so spätestens bei der Suche und beim Abgleich von Daten empfiehlt sich das Abschneiden der Leerzeichen – das Trimmen.

Dazu definiert man folgende Subroutine:

# ################################################
# TRIM A STRING
# ################################################
sub trim() {
  my $str = $_[0];
  $str =~ s/^\s+|\s+$//g;
  return $str;
};

Der Aufruf der Subroutine und damit das Trimmen wie in diesem Beispiel:

my $name="  Klaus Mueller  ";
print ":".$name.":\n";
$name=&trim($name);
print ":".$name.":\n";

Ausgabe:

:  Klaus Mueller  :
:Klaus Mueller: