in credits/scripts/check-names.pl [126:131]
sub trim { my ($string) = @_; $string =~ s/^\s+//; $string =~ s/\s+$//; return $string; }