sub trim(;\[$@]@)
{
    return _trim( $_ )
        if  ! @_;
    my $ref= shift @_;
    return _trim( eval{@$ref;1} ? @$ref : $$ref, @_ )
}