Are the lists really that huge that running

use Syntax::Construct qw{ /r }; # <-- updated
#...
grep /./, map s/^\s+|\s+$//gr, @_
[download]

would be much slower? I don't like grep modifying a list, it's like a map in a void context :-)