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