ClearAll[mapThrough]
 mapThrough[funcs_List] := Map[Through @ funcs @ ## &]

***Examples:***

 s2 = {{"h", "e", "l", "l", "o"}, {"d", "a", "y"}};

 mapThrough[{StringJoin, Length}] @ s2
> {{"hello", 5}, {"day", 3}}

Use with an arbitrary list of functions:

 mapThrough[{StringReverse @* StringJoin, Reverse, First, Last, #[[{1, -1}]&}] @ s2
> {{"olleh", {"o", "l", "l", "e", "h"}, "h", "o", {"h", "o"}},
> {"yad", {"y", "a", "d"}, "d", "y", {"d", "y"}}}