sub report { my @strings = @_; trim($_) for @strings; return sprintf "...", @strings; }