If you literally just want shorter, you can just use a different version of Function:
#@(Exponent[#, Variables[expr]] &) & /@ {f1, f2}↧
Answer by lericr for Applying several functions to the same argument
↧