$ perl -wle'$_=qr/foo/; print ref; print $$_'
Regexp
Use of uninitialized value in print at -e line 1.