sub trim { 
    @_ = ($_) if not @_;  
    foreach my $s (@_) { 
        $s =~ s/^\s*//; 
        $s =~ s/\s*$//; 
        $s =~ s/\n\z//s; 
    } 
    return wantarray? @_ : $_[0]; 
}

##</code><code>##

sub trim { 
    @_ = ($_) if not @_;  
    local $_; 
    foreach (@_) { 
        s/^\s*//; 
        s/\s*$//; 
        s/\n\z//s; 
    } 
    return wantarray? @_ : $_[0]; 
}