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