#!/usr/bin/perl

use strict;

sub trim
{
    my @args = ( @_ ) ? @_ : $_;
    for ( @args ) {
        s/\A\s+//;
        s/\s+\z//;
    }
    return wantarray ? @args : $args[0];
}

$_ = " test  ";
print "test 1: ==" . trim . "==$_==\n";

$_ = " 1234  ";
my @b = ();
trim( @b );
print "test 2: ==". $_ . "==@b==\n";

my @c = ( "  a ", " b  ", " c " );
my $d = join "", trim( @c );
print "test 3: ==". $_ . "==" . $d . "==@c==\n";

__OUTPUT__
test 1: ==test== test  ==
test 2: == 1234  ====
test 3: == 1234  ==abc==  a   b    c ==