Select Code to Download

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