Your first example doesn't work for me:

perl -e 'print qx/ulimit -n 2>&1/;'

prints nothing.

Update: Well, you update faster than I complain. Your new first example is dandy! ;-)