Trim A String (Remove Leading and Trailing Whitespace)

Code
sub StrTrim {

    my $Str = shift;

    $Str =~ s/^\s+//; # Remove leading whitespace
    $Str =~ s/\s+$//; # Remove trailing whitespace

    return $Str;

}

The Captian
Today they call you "crazy". Tomorrow they call you "ahead of your time."
Global Skywatch Learn about Chemtrails - You're breathing them now!
OnlyTheBestHerbs.com World-class supplements
Mercury Talk Why you are sick.
OneUp Domains Domains, Hosting, Email
1-800-358-4278 (U.S. & Canada)