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