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